summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/common.pm')
-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 :(