diff options
| -rw-r--r-- | perl-install/common.pm | 8 |
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 :( |