no need to call common::backtrace(), use directly backtrace() (was it written that way to workaround a bug in old perl_checker?)

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;