Problem with perl distro?

[Peter M Aarestad <aarestad at netzero dot net>]

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@netzero.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/