Tie the array after localizing it in t/{34,44}-*-magic.t

[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 35ca97e82cd7f2b316d352ef4d9a22a886a180e6..430424091d7505145fb518c829d226b8c701300a 100644 (file)
--- a/t/50-unwind-target.t
+++ b/t/50-unwind-target.t
@@ -22,8 +22,8 @@ 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)';
+like $@, qr/^Can't\s+return\s+outside\s+a\s+subroutine/, 'unwind(100) croaks';
 is_deeply \@res, [ 7 ], 'unwind(100)';