summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-26 00:20:56 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-26 00:20:56 +0000
commitef8e224c30594ca5af8a0b449eb4d8ca48b4e850 (patch)
tree9987fda62eb47bf3a251ec5c03332d02cc612cbd
parent407ba6e461a310e93560c062883a4a040983f51f (diff)
downloaddrakx-ef8e224c30594ca5af8a0b449eb4d8ca48b4e850.tar
drakx-ef8e224c30594ca5af8a0b449eb4d8ca48b4e850.tar.gz
drakx-ef8e224c30594ca5af8a0b449eb4d8ca48b4e850.tar.bz2
drakx-ef8e224c30594ca5af8a0b449eb4d8ca48b4e850.tar.xz
drakx-ef8e224c30594ca5af8a0b449eb4d8ca48b4e850.zip
no need to call common::backtrace(), use directly backtrace() (was it written that way to workaround a bug in old perl_checker?)
-rw-r--r--perl-install/interactive.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index e423d7eff..9df2d82f3 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -168,7 +168,7 @@ sub ask_from_listf_ {
}
sub ask_from_listf {
my ($o, $title, $message, $f, $l, $def, $help) = @_;
- @$l == 0 and die "ask_from_list: empty list\n" . common::backtrace();
+ @$l == 0 and die "ask_from_list: empty list\n" . backtrace();
@$l == 1 and return $l->[0];
goto &ask_from_listf_no_check;
}
@@ -303,7 +303,7 @@ sub ask_from_normalize {
if (@{$_->{list}} == ()) {
eval {
require 'log.pm';
- log::l("ask_from_normalize: empty list for $_->{label}\n" . common::backtrace());
+ log::l("ask_from_normalize: empty list for $_->{label}\n" . backtrace());
};
}
@{$_->{list}} > 1;