In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/cb4bdfcf966b22445c291b778e785e035f399f9d?hp=7acb6aa6c27bdd5c90522b7c65c5e3cf9a184f6b>
- Log ----------------------------------------------------------------- commit cb4bdfcf966b22445c291b778e785e035f399f9d Author: Slaven Rezic <[email protected]> Date: Tue Aug 11 23:20:05 2009 +0200 Added a failing test for a bareword parsing regression created in 984f9f66 Date: Tue, 11 Aug 2009 23:20:05 +0200 From: Slaven Rezic <[email protected]> To: [email protected] Subject: Re: 5.10.1: regression regarding bareword in readline() Reply-to: [email protected] On Tue 11.Aug'09 at 23:20:05 +0200, Slaven Rezic wrote: > > git bisect says that the breakage occurred in > > 109c3d50375e96ee005ac98a3d457c7da2f5cb08 in the maint-5.10 branch, > > respective in 984f9f66477bc722578262ae8520584e44e881af in the blead branch. > > > > This breaks at least the CPAN distribution MySQL-Backup-0.04. > > > > /usr/perl-5.10.0-3220-gf9961a0/bin/perl -c -e 'use strict; readline(STDIN)' > I found another CPAN distribution with the same problem: Tie-Simple-1.03 > > And there's another bareword problem, found in Games-Go-GoPair-1.001.> use strict; > my @players; > sub _rankCompare { } > @players = sort(_rankCompare @players); ----------------------------------------------------------------------- Summary of changes: t/lib/strict/subs | 14 ++++++++++++++ 1 files changed, 14 insertions(+), 0 deletions(-) diff --git a/t/lib/strict/subs b/t/lib/strict/subs index c18af68..e8e1324 100644 --- a/t/lib/strict/subs +++ b/t/lib/strict/subs @@ -408,3 +408,17 @@ system(FOO . "\n"); EXPECT Bareword "FOO" not allowed while "strict subs" in use at - line 4. Execution of - aborted due to compilation errors. +######## +# commit 984f9f66477bc722578262ae8520584e44e881af broke this parsing +use strict 'subs'; +my @players; +sub _rankCompare { } +...@players = sort(_rankCompare @players); +EXPECT + +######## +# commit 984f9f66477bc722578262ae8520584e44e881af broke this parsing +use strict; +readline(STDIN); +EXPECT + -- Perl5 Master Repository
