From: Vincent Pit Date: Wed, 24 Feb 2010 14:46:47 +0000 (+0100) Subject: A 'CHECK' label is no longer accepter in 5.11 X-Git-Tag: v0.07~12 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Frgit.git;a=commitdiff_plain;h=2f5d92f87c6d82ebf8d1adb61b857f0998170973 A 'CHECK' label is no longer accepter in 5.11 --- diff --git a/t/lib/App/Rgit/TestUtils.pm b/t/lib/App/Rgit/TestUtils.pm index 07b1bd7..dcc8339 100644 --- a/t/lib/App/Rgit/TestUtils.pm +++ b/t/lib/App/Rgit/TestUtils.pm @@ -23,7 +23,7 @@ sub can_run_git { my @ret = (1, ''); -CHECK: +TRY: { my @args = ( abs_path($filename), @@ -36,13 +36,13 @@ CHECK: $git .= '.bat'; unless (-x $git) { @ret = (0, "no $git executable"); - last CHECK; + last TRY; } } } else { unless (-x $git) { @ret = (0, "no $git executable"); - last CHECK; + last TRY; } } @@ -50,7 +50,7 @@ CHECK: if ($? == -1) { @ret = (0, $! || "unknown"); - last CHECK; + last TRY; } my $status;