]> git.vpit.fr Git - perl/modules/rgit.git/commitdiff
A 'CHECK' label is no longer accepter in 5.11
authorVincent Pit <vince@profvince.com>
Wed, 24 Feb 2010 14:46:47 +0000 (15:46 +0100)
committerVincent Pit <vince@profvince.com>
Wed, 24 Feb 2010 15:11:22 +0000 (16:11 +0100)
t/lib/App/Rgit/TestUtils.pm

index 07b1bd7c4e5212260a9f9dcdf3c243cf7fe133b6..dcc83390393be53dab6d0fa3d966b1e187a6e23c 100644 (file)
@@ -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;