Replace $] by "$]"

[perl/modules/Scope-Upper.git] / t / 50-unwind-target.t

diff --git a/t/50-unwind-target.t b/t/50-unwind-target.t
index 7e43baa6247d553bf757fd6a5ce20ea6c8cc0036..3c7a21d278b6bdd9b0c969c6a9051dbc3e56c11f 100644 (file)
--- a/t/50-unwind-target.t
+++ b/t/50-unwind-target.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 4;
 
-use Scope::Upper qw/unwind/;
+use Scope::Upper qw<unwind>;
 
 my @res;
 
@@ -22,7 +22,7 @@ is_deeply \@res, [ 7 ], 'unwind()';
 is_deeply \@res, [ 7 ], 'unwind(-1)';
 
 @res = (7, eval {
- unwind 100;
+ unwind 0;
  8;
 });
 like $@, qr/^Can't\s+return\s+outside\s+a\s+subroutine/, 'unwind(100) croaks';