diff options
| author | Slaven Rezic <slaven@rezic.de> | 2009-08-11 23:20:05 +0200 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2009-08-12 19:32:29 -0400 |
| commit | cb4bdfcf966b22445c291b778e785e035f399f9d (patch) | |
| tree | 767d0e5ddedda0c2b10cb26a0a0593ee66e39531 /t/lib/strict | |
| parent | 7acb6aa6c27bdd5c90522b7c65c5e3cf9a184f6b (diff) | |
| download | perl-cb4bdfcf966b22445c291b778e785e035f399f9d.tar.gz | |
Added a failing test for a bareword parsing regression created in 984f9f66
Date: Tue, 11 Aug 2009 23:20:05 +0200
From: Slaven Rezic <slaven@rezic.de>
To: perl5-porters@perl.org
Subject: Re: 5.10.1: regression regarding bareword in readline()
Reply-to: slaven@rezic.de
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);
Diffstat (limited to 't/lib/strict')
| -rw-r--r-- | 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 c18af684f5..e8e132462d 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 + |