diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-04-13 14:08:51 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-04-13 14:08:51 +0000 |
| commit | 62de35cd6cb2a712c2a9edcd9727a4e0b1fc4910 (patch) | |
| tree | 90ac2b4f78e0358b84288b0e1f52807e51622941 | |
| parent | dd134ba8076e252e3c1782b021e63e11dd9d609c (diff) | |
| download | drakx-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.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 :( |