Select Code to Download

  ...\Win32-TieRegistry-0.25> nmake test >debug.out 2>&1
  ...\Win32-TieRegistry-0.25> type debug.out
...
# $val->[0] is "".
Use of uninitialized value in pattern match (m//) at test.pl line 32.
not ok 4

    ...
    $sam= defined($opts->{Access}) ? $opts->{Access} : $this->Access;
    $sam= _constant($sam,"key access type")   if  $sam =~ /^KEY_/;
    $sam = KEY_READ;  # <--- force value for debugging
    ...

my $reg;
use Win32::TieRegistry (
...

my $val= $reg->{ "CUser/Software/Microsoft/Windows/CurrentVersion/"
               . "Policies/Explorer//NoDriveTypeAutoRun" };