develooper Front page | perl.perl5.porters | Postings from August 2009

5.10.1: regression regarding bareword in readline()

Thread Next
Slaven Rezic
August 11, 2009 00:34
5.10.1: regression regarding bareword in readline()
Message ID:
The following script

use strict;
my $file;
open(FILE, $file);
my $fline = readline(FILE);

compiles under 5.10.0 but not under 5.10.1-to-be:

$ /usr/perl-5.10.0-3220-gf9961a0/bin/perl -c
Bareword "FILE" not allowed while "strict subs" in use at line 7. had compilation errors.
Exitcode 9

git bisect says that the breakage occurred in
109c3d50375e96ee005ac98a3d457c7da2f5cb08 in the maint-5.10 branch,
respective in 984f9f66477bc722578262ae8520584e44e881af in the blead

This breaks at least the CPAN distribution MySQL-Backup-0.04.

Ah, a shorter way to reproduce this:
/usr/perl-5.10.0-3220-gf9961a0/bin/perl -c -e 'use strict; readline(STDIN)'


Slaven Rezic - slaven <at> rezic <dot> de

    tkrevdiff - graphical display of diffs between revisions (RCS, CVS or SVN)

Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About