diff options
| -rw-r--r-- | t/base/lex.t | 7 |
1 files 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++; |