diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-10-29 18:05:57 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-10-29 18:05:57 -0700 |
| commit | 712a451748ed195445466d819b3cd7936892a751 (patch) | |
| tree | 5265707944f913d7e5ce5cf19c48308892a017c9 /t/base | |
| parent | 52ec28d5ff5fcb874bd7ffac4db0609315227668 (diff) | |
| download | perl-712a451748ed195445466d819b3cd7936892a751.tar.gz | |
t/base/lex.t: Dodge warning
Spotted by Jarkko Hietaniemi.
Diffstat (limited to 't/base')
| -rw-r--r-- | t/base/lex.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/base/lex.t b/t/base/lex.t index a9072ac3f4..dc81e9d2ad 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++; |