X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F50-unwind-target.t;h=430424091d7505145fb518c829d226b8c701300a;hb=0a6221d3f467b5f819e3c119b4cda0218399cb51;hp=7e43baa6247d553bf757fd6a5ce20ea6c8cc0036;hpb=e4bb8d889bcaaf2a3c9f1f9cd2a8185115db5db0;p=perl%2Fmodules%2FScope-Upper.git diff --git a/t/50-unwind-target.t b/t/50-unwind-target.t index 7e43baa..4304240 100644 --- a/t/50-unwind-target.t +++ b/t/50-unwind-target.t @@ -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';