in reply to Array definition error

It's because of the empty lines: 
...
while (my $pattern = <DATA>) {
 next if $pattern =~ /^\s*$/;
...

[download]


Replies are listed 'Best First'.
Re^2: Array definition error
by gri6507 (Deacon) on Apr 15, 2005 at 15:29 UTC
    what empty lines? The __DATA__ only has three lines and they are all non-empty.
[reply]

In Section Seekers of Perl Wisdom