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
X-AuthUser:	gerrit:koeln.convey.de
Date:	Sun, 20 Jul 2003 00:20:22 +0200
From:	"Gerrit P. Haase" <gp AT familiehaase DOT de>
Organization:	Esse keine toten Tiere
X-Priority:	3 (Normal)
Message-ID:	<195127617293.20030720002022@familiehaase.de>
To:	cygwin AT cygwin DOT com
CC:	perl5-porters AT perl DOT org
Subject:	perl with cygwin 1.5 doesn't fly.
MIME-Version:	1.0

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/

- Raw text -