http://qs1969.pair.com?node_id=98832

chinman has asked for the wisdom of the Perl Monks concerning the following question:

Anointed ones,

I have a question concerning using win32::tieRegistry. I have a little script that just pokes into the registry and grabs the application path. It works ok, but it whines a bit at the end. See below:

#!/usr/bin/perl -w use strict; use Win32::TieRegistry ( Delimiter=>"/" ); my $regString = $Registry->{'LMachine/Software/Microsoft/Windows/Curre +ntVersion/App Paths/ProMassXcali.exe//'}; use File::Basename; my($basename, $AppPath, $suffix) = fileparse("$regString",'\..*'); print "$AppPath\n";

Here's the error message that it spits out at the end.

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

Is there something wrong with the way I'm doing this? I'm running win2k with Perl 5.6.1 build 626 from ActiveState.

chinman

#!/usr/bin/perl -w $camel = $hump do { theHumpty($camel); }