Re:Create a package

[Jorge Goncalvez]

Hi, I wanted to create a package like this:
package GetMyRegPath;

use Win32::Registry;

sub GetCygwinMountsPath(){
  my %Vals = ();
  my $RegPath = "SOFTWARE\\Cygnus Solutions\\Cygwin\\mounts v2\\/";
  $main::HKEY_LOCAL_MACHINE->Open($RegPath, my $MountsKey) || die "Couldn't
open $RegPath\n";
  $MountsKey->GetValues(\%Vals);
  foreach my $Val (keys %Vals){
    my $Key = $Vals{$Val};
    if ($$Key[0] eq "native"){
      my $MountsPath = $$Key[2];

      my ($Path) = $MountsPath =~ /(.+?)cygwin/;

      return  ($Path);

    } #end if
  } #end foreach
} #end sub

use GetMyRegPath;

but it fails and i have this why?
thanks

GetMyRegPath.pm did not return a true value at bootnet3.pl line 40.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]