From edea384e57453b0a62de58445eed1fded18c1cca Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Thu, 29 Jun 2017 13:20:49 +0200 Subject: [PATCH] add an additional test for whitespace tolerance in caret word-vars MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Petr Písař: Ported to 5.26.2-RC1. Signed-off-by: Petr Písař --- 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 ae17bbd..414aa1f 100644 --- a/t/base/lex.t +++ b/t/base/lex.t @@ -1,6 +1,6 @@ #!./perl -print "1..119\n"; +print "1..120\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++; -- 2.14.3