From 62de35cd6cb2a712c2a9edcd9727a4e0b1fc4910 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 13 Apr 2001 14:08:51 +0000
Subject: (backtrace): created

---
 perl-install/common.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'perl-install/common.pm')

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 :(
-- 
cgit v1.2.1