Print the full target directory (debugging aid)
authorHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>
Thu, 29 Jun 2017 17:42:11 +0000 (19:42 +0200)
committerHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>
Thu, 29 Jun 2017 17:42:11 +0000 (19:42 +0200)
EximBuild/SCM.pm

index f174982425941fe060ae7bd9de0aa5c71951bf31..9b006cd1b899b07b9bd46f2c2560cadc15beb6bf 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 
 use File::Find;
 use strict;
 
 use File::Find;
+use Cwd;
 
 =comment
 
 
 =comment
 
@@ -218,7 +219,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 in $target:\n";
+            unshift @branches,"Missing checked out branch bf_$branch in " . cwd() . ":\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`;