In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/712a451748ed195445466d819b3cd7936892a751?hp=52ec28d5ff5fcb874bd7ffac4db0609315227668>
- Log ----------------------------------------------------------------- commit 712a451748ed195445466d819b3cd7936892a751 Author: Father Chrysostomos <[email protected]> Date: Wed Oct 29 18:05:57 2014 -0700 t/base/lex.t: Dodge warning Spotted by Jarkko Hietaniemi. ----------------------------------------------------------------------- Summary of changes: t/base/lex.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/base/lex.t b/t/base/lex.t index a9072ac..dc81e9d 100644 --- a/t/base/lex.t +++ b/t/base/lex.t @@ -472,5 +472,5 @@ print "not " unless $@ =~ /^Unimplemented at /; print "ok $test - map{...} (literal triple-dot)\n"; $test++; print "not " unless &{sub :lvalue { "a" }} eq "a"; print "ok $test - &{sub :lvalue...}\n"; $test++; -print "not " unless ref+(map{sub :lvalue { "a" }} 1)[0] eq "CODE"; +print "not " unless ref +(map{sub :lvalue { "a" }} 1)[0] eq "CODE"; print "ok $test - map{sub :lvalue...}\n"; $test++; -- Perl5 Master Repository
