Anthony Okusanya:
> if($hotfix =$Registry->{"LMachine/.../$_[0]"}) {
Try a simple test.pl that contains only something like this:
#!/usr/bin/perl
use strict; use warnings;
use Win32::TieRegistry(Delimiter => '/');
my $regkey = 'LMachine/SOFTWARE/Microsoft/Windows NT/'
. 'CurrentVersion/HotFix/' . $_[0] . '/';
my $hotfix = $Registry->{$regkey}
or die "Can't read registry key $regkey $^E\n";
print 'Comments:', $hotfix->{'Comments'}, "\n";
print '/Comments:', $hotfix->{'/Comments'}, "\n";
and work on from that.
--
Affijn, Ruud
"Gewoon is een tijger."
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
