This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Break s//3}->{3/e
authorFather Chrysostomos <sprout@cpan.org>
Thu, 30 Aug 2012 23:09:58 +0000 (16:09 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 31 Aug 2012 01:18:12 +0000 (18:18 -0700)
commit6b00f562eddf90e215cb117d990dd4595e072f29
tree99f087b1915d140012dd331273ddd23949d13324
parent9c74ccc90967bf358f43629a26ebd70e7f15f83a
Break s//3}->{3/e

This should never have worked:

%_=(_,"Just another ");
$_="Perl hacker,\n";
s//_}->{_/e;print
t/base/lex.t
toke.c