In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9b7d3fdf8458e3581b4fb3a6c557b4db4e1f31e8?hp=4f08ed80a1ad3deb06ce5d8d20cc2d176dcbced0>
- Log ----------------------------------------------------------------- commit 9b7d3fdf8458e3581b4fb3a6c557b4db4e1f31e8 Author: Yves Orton <[email protected]> Date: Thu Jun 29 13:20:49 2017 +0200 add an additional test for whitespace tolerance in caret word-vars ----------------------------------------------------------------------- Summary of changes: t/base/lex.t | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/t/base/lex.t b/t/base/lex.t index 89d46dfce0..de33e7a688 100644 --- a/t/base/lex.t +++ b/t/base/lex.t @@ -1,6 +1,6 @@ #!./perl -print "1..116\n"; +print "1..117\n"; $x = 'x'; @@ -158,9 +158,12 @@ my $test = 31; ${^TEST}= "splat"; @{^TEST}= ("foo", "bar"); %{^TEST}= ("foo" => "FOO", "bar" => "BAR" ); - + print "not " if "${^TEST}" ne "splat"; print "ok $test\n"; $test++; + + print "not " if "${ ^TEST }" ne "splat"; + print "ok $test\n"; $test++; print "not " if "${^TEST}[0]" ne "splat[0]"; print "ok $test\n"; $test++; -- Perl5 Master Repository
