From edea384e57453b0a62de58445eed1fded18c1cca Mon Sep 17 00:00:00 2001

From: Yves Orton <demerphq@gmail.com>

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ř <ppisar@redhat.com>

---

 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