X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F50-unwind-target.t;h=7e43baa6247d553bf757fd6a5ce20ea6c8cc0036;hb=be1c9e0f31c1d07c4a8e934f36dca3077cc5ca46;hp=35ca97e82cd7f2b316d352ef4d9a22a886a180e6;hpb=d5ccf92b4d3987583b0f63c819a0d683524e7d18;p=perl%2Fmodules%2FScope-Upper.git diff --git a/t/50-unwind-target.t b/t/50-unwind-target.t index 35ca97e..7e43baa 100644 --- a/t/50-unwind-target.t +++ b/t/50-unwind-target.t @@ -25,5 +25,5 @@ is_deeply \@res, [ 7 ], 'unwind(-1)'; unwind 100; 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)';