Mailing-List:	contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Subscribe:	<mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive:	<http://sources.redhat.com/ml/cygwin/>
List-Post:	<mailto:cygwin AT cygwin DOT com>
List-Help:	<mailto:cygwin-help AT cygwin DOT com>, <http://sources.redhat.com/ml/#faqs>
Sender:	cygwin-owner AT cygwin DOT com
Mail-Followup-To:	cygwin AT cygwin DOT com
Delivered-To:	mailing list cygwin AT cygwin DOT com
From:	"George Njoku" <gnjoku AT pegasus DOT rutgers DOT edu>
To:	"'Gerrit P. Haase'" <gp AT familiehaase DOT de>, <cygwin AT cygwin DOT com>
Cc:	<perl5-porters AT perl DOT org>
Subject:	RE: perl with cygwin 1.5 doesn't fly.
Date:	Sun, 20 Jul 2003 14:17:23 -0400
Message-ID:	<000601c34eeb$2b20d940$0401a8c0@vaio>
MIME-Version:	1.0
X-Priority:	3 (Normal)
X-MSMail-Priority:	Normal
In-Reply-To:	<195127617293.20030720002022@familiehaase.de>
X-MimeOLE:	Produced By Microsoft MimeOLE V6.00.2800.1165
Importance:	Normal
X-Virus-Scanned:	by amavisd-new

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";


gnjoku AT andromeda DOT rutgers DOT edu


-----Original Message-----
From: cygwin-owner AT cygwin DOT com [mailto:cygwin-owner AT cygwin DOT com] On Behalf Of
Gerrit P. Haase
Sent: Saturday, July 19, 2003 6:20 PM
To: cygwin AT cygwin DOT com
Cc: perl5-porters AT perl DOT org
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/

- Raw text -