Add debugging aid for failed git checkout
authorHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>
Thu, 29 Jun 2017 17:37:51 +0000 (19:37 +0200)
committerHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>
Thu, 29 Jun 2017 17:37:51 +0000 (19:37 +0200)
EximBuild/SCM.pm

index a722f3d8e642ed926f6a7ecb4749bb87efdefd04..f174982425941fe060ae7bd9de0aa5c71951bf31 100644 (file)
@@ -8,7 +8,7 @@ Copyright (c) 2003-2010, Andrew Dunstan
 
 See accompanying License file for license details
 
 
 See accompanying License file for license details
 
-=cut 
+=cut
 
 ##########################################################################
 #
 
 ##########################################################################
 #
@@ -210,7 +210,7 @@ sub checkout
             unshift @ret, "git not found in path\n";
             main::send_result("$target-Git",$status,\@ret);
         }
             unshift @ret, "git not found in path\n";
             main::send_result("$target-Git",$status,\@ret);
         }
-        
+
         chdir $target;
         my @branches = `git branch 2>&1`;
         unless (grep {/^\* bf_\Q$branch\E$/} @branches)
         chdir $target;
         my @branches = `git branch 2>&1`;
         unless (grep {/^\* bf_\Q$branch\E$/} @branches)
@@ -218,7 +218,7 @@ sub checkout
             chdir '..';
             print "Missing checked out branch bf_$branch:\n",@branches
               if ($main::verbose);
             chdir '..';
             print "Missing checked out branch bf_$branch:\n",@branches
               if ($main::verbose);
-            unshift @branches,"Missing checked out branch bf_$branch:\n";
+            unshift @branches,"Missing checked out branch bf_$branch in $target:\n";
             main::send_result("$target-Git",$status,\@branches);
         }
         my @pulllog = `git pull 2>&1`;
             main::send_result("$target-Git",$status,\@branches);
         }
         my @pulllog = `git pull 2>&1`;