Check u're perl code again
Use strict; # that way you must use 'my' to define all scalars
My %module = ( 'cygwin'=>'Cygwin' ); # note 'cygwin'
My $var = $module{$^0} || 'Unix' # can't remember what special variable =
# $^0 but note that since %module and
# $var are in the same scope you should try not to name %module and $module
bcos $module refers to an entry in the hash of %modules
Print "$var\n";
[EMAIL PROTECTED]
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of
Gerrit P. Haase
Sent: Saturday, July 19, 2003 6:20 PM
To: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: perl with cygwin 1.5 doesn't fly.
Hallo,
I'm getting strange errors when I compile Perl 5.8 with Cygwin 1.5,
well, miniperl.exe compiles, but then the first simple tests break:
1. This as script executed with miniperl.exe:
%module = ( cygwin => 'Cygwin' );
$module = $module{$^O} || 'Unix';
print "$module\n";
gives what is expected:
$ ./miniperl ./minitest.pl
Cygwin
2. If I change the script now to be:
my %module = ( cygwin => 'Cygwin' );
$module = $module{$^O} || 'Unix';
print "$module\n";
I get:
$ ./miniperl ./minitest.pl
Unix
3. And if a second 'my' is added:
my %module = ( cygwin => 'Cygwin' );
my $module = $module{$^O} || 'Unix';
print "$module\n";
I get:
$ ./miniperl ./minitest.pl
What is wrong with 'my' on Cygwin 1.5?
Gerrit
--
=^..^=
--
Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple
Problem reports: http://cygwin.com/problems.html
Documentation: http://cygwin.com/docs.html
FAQ: http://cygwin.com/faq/
--
Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple
Problem reports: http://cygwin.com/problems.html
Documentation: http://cygwin.com/docs.html
FAQ: http://cygwin.com/faq/
