summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-04-13 14:08:51 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-04-13 14:08:51 +0000
commit62de35cd6cb2a712c2a9edcd9727a4e0b1fc4910 (patch)
tree90ac2b4f78e0358b84288b0e1f52807e51622941
parentdd134ba8076e252e3c1782b021e63e11dd9d609c (diff)
downloaddrakx-62de35cd6cb2a712c2a9edcd9727a4e0b1fc4910.tar
drakx-62de35cd6cb2a712c2a9edcd9727a4e0b1fc4910.tar.gz
drakx-62de35cd6cb2a712c2a9edcd9727a4e0b1fc4910.tar.bz2
drakx-62de35cd6cb2a712c2a9edcd9727a4e0b1fc4910.tar.xz
drakx-62de35cd6cb2a712c2a9edcd9727a4e0b1fc4910.zip
(backtrace): created
-rw-r--r--perl-install/common.pm8
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index ab08ad4a1..9b2ace894 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -688,6 +688,14 @@ sub formatError {
$err;
}
+sub backtrace {
+ my $s;
+ for (my $i = 1; caller($i); $i++) {
+ my ($package, $file, $line, $func) = caller($i);
+ $s .= "$func() called from $file:$line\n";
+ }
+ $s;
+}
#-######################################################################################
#- Wonderful perl :(