gitzone

commit d7ad24dda626a1e3a0bf2ccae5f1ebfe7a1bc0d7
parent 34fb5aa87889294956a13bbb2a018a4a7b278919
Author: tg(x) <*@tg-x.net>
Date:   Fri,  4 Feb 2011 12:07:26 +0100

die line number

Diffstat:
M
bin/gitzone
 | 
5
++++-

1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/bin/gitzone b/bin/gitzone
@@ -49,7 +49,10 @@ sub git {
     #my $cwd = cwd; s/$cwd//g; # print relative paths
     print;
   }
-  die if $ret >= 0 && $? >> 8 != $ret;
+  if ($ret >= 0 && $? >> 8 != $ret) {
+    my ($package, $filename, $line) = caller;
+    die "Died at line $line.\n";
+  }
   return $_;
 }