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-Originating-IP: [198.179.147.18]
Mime-Version: 1.0
X-Original-From: "Peter M Aarestad" <aarestad AT netzero DOT net>
Date: Tue, 23 Sep 2003 18:39:05 GMT
To: cygwin AT cygwin DOT com
Subject: Problem with perl distro?
Content-Type: text/plain
From: Peter M Aarestad <aarestad AT netzero DOT net>
Message-Id: <20030923.114216.15014.278050@webmail05.nyc.untd.com>


I have a script that I noticed was giving me problems with the Cygwin version of Perl when I ran it, but the same script works fine with the AcitveState version of Perl. The key lines of the main loop look like this:

while (<GUIFILE>) {
    chomp;

    if (!$desc and /^(\w+):$/) { # warning line
        # ...
    } elsif (/^\{$/) {
        # ...
    } elsif (/^\}$/) {
        # ...
    } elsif (!$desc and /^"?$screen"?\.(.+):/) {
        # ...
    } elsif ($desc and /^\s*id:\s*(\d+)$/) {
        # ...
    } else {
        # ...
    }
} # end while <GUIFILE>

Now, every single time I read in a line, I get this warning

Use of uninitialized value in concatenation (.) or string at ./genguimapdoc.pl line 60, <GUIFILE> line n.

However, I do NOT get this warning using ActiveState Perl, and the script works fine! Is this thus a bug in Cygwin's Perl build?

-peter

Peter Aarestad
aarestad AT netzero DOT net
Law of Software Envelopment:
Every program attempts to expand until it can read mail. Those programs which cannot so expand are replaced by ones which can.
- Jamie Zawinski

________________________________________________________________
The best thing to hit the internet in years - NetZero HiSpeed!
Surf the web up to FIVE TIMES FASTER!
Only $14.95/ month -visit www.netzero.com to sign up today!

--
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/