Folks, TieRegistry produces no values for keys. In below $key is defined but %$key is empty. Indeed it does work for any key not just LMachine/Software.
This code works correctly with ActiveState perl.
---- example ----
use Win32::TieRegistry(Delimiter => '/', ArrayValues => 0);
$key = $Registry->{'LMachine/SOFTWARE/'};
printf "error: key not found" if !(defined($key));
while (my ($k,$v) = each(%$key)) {
printf " %s = %s\n", $k, $v;
}
---- example ----
Actually not of the registry functions appear to produce values.
Attached output from cygcheck.
Regards, Neil
cygcheck.output
Description: Binary data
-- Problem reports: http://cygwin.com/problems.html FAQ: http://cygwin.com/faq/ Documentation: http://cygwin.com/docs.html Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple
