X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Frgit.git;a=blobdiff_plain;f=t%2Flib%2FApp%2FRgit%2FTestUtils.pm;fp=t%2Flib%2FApp%2FRgit%2FTestUtils.pm;h=dcc83390393be53dab6d0fa3d966b1e187a6e23c;hp=07b1bd7c4e5212260a9f9dcdf3c243cf7fe133b6;hb=2f5d92f87c6d82ebf8d1adb61b857f0998170973;hpb=48e7a927240529852bfad492f36a3dcefcce7598 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;