| Subject: | "More data available" error breaks Date::Manip |
This program (extracted from Date::Manip and simplified) prints error on Strawberry perl 5.19.11
use 5.012;
use Win32::TieRegistry;
my $lmachine = new Win32::TieRegistry 'LMachine',
{ Access => Win32::TieRegistry::KEY_READ(),
Delimiter => '/' }
or die;
my $atz = $lmachine->Open('SOFTWARE/Microsoft/Windows NT/CurrentVersion/Time Zones/');
die if (! defined($atz) || ! $atz);
eval {
$atz->SubKeyNames();
};
if ($@) {
say $@;
say $^E;
say Win32::GetLastError();
say Win32::FormatMessage( Win32::GetLastError() );
}
say "\$Win32::TieRegistry::_MoreData = $Win32::TieRegistry::_MoreData";
output:
Can't use an undefined value as an ARRAY reference at C:/strawberry1911/perl/vendor/lib/Win32/TieRegistry.pm line 718.
Имеются дополнительные данные
234
Имеются дополнительные данные.
$Win32::TieRegistry::_MoreData = 234
message in Russian is "More data available"
.reg file with export of this branch is attached.
reason of die is that $self->{SUBKEYS} is undef due to "More data available" error
--
Alexandr Ciornii, http://chorny.net
| Subject: | tz.reg |
Message body not shown because it is not plain text.