Getting annoying message when using -w with Win32::TieRegistry

Rex(Wrecks) has asked for the wisdom of the Perl Monks concerning the following question:

I get the following error when the script exits:

in cleanup) Can't call method "FETCH" on an undefined value at E:/Perl/site/lib/Win32/TieRegistry.pm line 1486 during global destruction.

Anyone know how to avoid this?
here is the code snippet:

use Win32::TieRegistry( Delimiter=>"/", ArrayValues=>0 ) ;
$openKey = $Registry->{"LMachine/SYSTEM/CurrentControlSet/Services/tft
+pd/parameters/"} ;
$tftpdDir = $openKey->{"/directory"} ;    
print $tftpdDir ;      
undef $tftpdDir ;
undef $openKey ;
exit 0;
[download]

"Nothing is sure but death and taxes" I say combine the two and its death to all taxes!

Comment on Getting annoying message when using -w with Win32::TieRegistry Select or Download Code

Replies are listed 'Best First'.
Re: Getting annoying message when using -w with Win32::TieRegistry by tye (Sage) on Aug 11, 2001 at 02:24 UTC
Upgrade the Win32::TieRegistry module. - tye (but my friends call me "Tye")	[reply]
Re: Re: Getting annoying message when using -w with Win32::TieRegistry by Rex(Wrecks) (Curate) on Aug 11, 2001 at 02:55 UTC
Thanks, I saw some references to it on other mail lists, however nothing and no one with a solution. Now I'm going to take a shot in the dark here and assume you are the Tye that wrote this module...nothing like getting it from the source. BTW, it worked fine :) Thanks Rex "Nothing is sure but death and taxes" I say combine the two and its death to all taxes!	[reply]