tdie line number - gitzone - git-based zone management tool for static and dynamic domains
  HTML git clone https://git.parazyd.org/gitzone
   DIR Log
   DIR Files
   DIR Refs
       ---
   DIR commit d7ad24dda626a1e3a0bf2ccae5f1ebfe7a1bc0d7
   DIR parent 34fb5aa87889294956a13bbb2a018a4a7b278919
  HTML 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(-)
       ---
   DIR diff --git a/bin/gitzone b/bin/gitzone
       t@@ -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 $_;
        }