A 'CHECK' label is no longer accepter in 5.11

[perl/modules/rgit.git] / t / lib / App / Rgit / TestUtils.pm

diff --git a/t/lib/App/Rgit/TestUtils.pm b/t/lib/App/Rgit/TestUtils.pm
index 07b1bd7c4e5212260a9f9dcdf3c243cf7fe133b6..dcc83390393be53dab6d0fa3d966b1e187a6e23c 100644 (file)
--- 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;