Perl is case sensitive... You have 'Open' instead of 'open'. It wants you to define
the 'Open'
subroutine, but I don't think that is what you want :-)
Shawn
----- Original Message -----
From: "Jorge Goncalvez" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, January 24, 2002 3:00 AM
Subject: Re:What's wrong with this?
> Hi, I have this:
> #!/usr/local/bin/perl -w
> use Win32::Registry;
> my $Register ="Software";
> #my $Register2=".DEFAULT\\Software";
> my $hkey;
> my @array= qw($HKEY_LOCAL_MACHINE $HKEY_CURRENT_USER ) ;
>
> foreach (@array)
> {
> $_=>Open($Register,$hkey)|| die $!;
$_=>open($Register,$hkey)|| die $!;
> $hkey->DeleteKey("Cygwin2");
> $hkey->Close();
> }
>
> and i have this error:Undefined subroutine &main::Open called at $_=>...
> Why?
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
