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 $_; }