X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F50-unwind-target.t;h=7e43baa6247d553bf757fd6a5ce20ea6c8cc0036;hb=df13e52b10dc5902a7f1a0b02dc7fb5eef429944;hp=35ca97e82cd7f2b316d352ef4d9a22a886a180e6;hpb=f0bcaf18260322fd0bc7ebe1bcae0cff45681a4d;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)';