I see that the ActiveState 5.10.0 has been hit by this problem. Build
1001 contained 0.26 while 1003 contains 0.25.
H:\> diff -wuU2 d:\Perl-5.10.0-1001\lib\Win32\TieRegistry.pm
d:\Perl-5.10.0-1003\lib\Win32\TieRegistry.pm
--- d:\Perl-5.10.0-1001\lib\Win32\TieRegistry.pm Mon Sep 19
17:49:36 2005
+++ d:\Perl-5.10.0-1003\lib\Win32\TieRegistry.pm Thu Mar 23
18:33:06 2006
@@ -7,14 +7,11 @@
#
-
package Win32::TieRegistry;
-
use strict;
use vars qw( $PACK $VERSION @ISA @EXPORT @EXPORT_OK );
-$PACK= "Win32::TieRegistry"; # Used in error messages.
-$VERSION= '0.26';
-
+$PACK = 'Win32::TieRegistry'; # Used in error messages.
+$VERSION = '0.25'; # Released 2006-03-23
use Carp;
@@ -44,5 +41,4 @@
}
-
#Implementation details:
# When opened:
@@ -89,5 +85,4 @@
$Flag_FixNulls= 0x0080;
-
use vars qw( $RegObj %_Roots %RegHash $Registry );
@@ -318,6 +313,5 @@
my $subKey= join( $this->OS_Delimiter, @$subPath );
my $handle= 0;
- $this->RegOpenKeyEx( $subKey, 0, $sam, $handle )
- or return ();
+ $this->RegOpenKeyEx( $subKey, 0, $sam, $handle ) or return ();
return $this->_new( $handle, [ @{$this->_Path}, @$subPath ],
{ ACCESS=>$sam, ( defined($this->{UNLOADME}) ? ("DEPENDON",$this)
@@ -526,5 +520,5 @@
my $self= shift(@_);
$self= tied(%$self) if tied(%$self);
- my( $flush )= shift(@_);
+ my( $flush )= @_;
@_ and croak "Usage: \$key->Flush( \$bFlush );";
return 0 if "NONE" eq $self->Handle;
@@ -1485,5 +1479,4 @@
return if tied(%$self);
my $unload;
- local $@;
eval { $unload= $self->{UNLOADME}; 1 }
or return;
RT for rt.cpan.org