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
Content-Type: text/plain;
	charset="US-ASCII"
Content-Transfer-Encoding: 7bit
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/