This is the mail archive of the
cygwin@cygwin.com
mailing list for the Cygwin project.
RE: perl with cygwin 1.5 doesn't fly.
- From: "Matthew O. Persico" <persicom at acedsl dot com>
- To: <gnjoku at pegasus dot rutgers dot edu>, "'Gerrit P. Haase'" <gp at familiehaase dot de>, <cygwin at cygwin dot com>
- Cc: <perl5-porters at perl dot org>
- Date: Mon, 21 Jul 2003 19:50:46 -0400
- Subject: RE: perl with cygwin 1.5 doesn't fly.
On Sun, 20 Jul 2003 14:17:23 -0400, George Njoku wrote:
>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
Um, no.
%module is a hash
$module{somekey} locates a value in the hash %module
$module is a separate scalar.
Try this:
use strict;
use warnings;
my %module = ('cygwin' => 'Cygwin');
my $module = 'Lunar';
print "hash el: " . $module{'cygwin'} . "\n";
print "scalar: " . $module . "\n";
I will admit might be confusing to use a scalar $module and a hash %module, but it is not an error.
>
>Print "$var\n";
>
>
>gnjoku@andromeda.rutgers.edu
>
>
>-----Original Message-----
>From: cygwin-owner@cygwin.com [mailto:cygwin-owner@cygwin.com] On
>Behalf Of Gerrit P. Haase Sent: Saturday, July 19, 2003 6:20 PM To:
>cygwin@cygwin.com Cc: perl5-porters@perl.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
--
Matthew O. Persico
--
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/