summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-14 07:56:14 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-14 07:56:14 +0000
commitdef745743bbd2e52dd955e2fd86b48003c32293f (patch)
treeacb9788a0794cda58cd542f8489ed5b7118b668e
parent4ea75f25ffdcb053110fdd9b211daa9a934fa583 (diff)
downloaddrakx-def745743bbd2e52dd955e2fd86b48003c32293f.tar
drakx-def745743bbd2e52dd955e2fd86b48003c32293f.tar.gz
drakx-def745743bbd2e52dd955e2fd86b48003c32293f.tar.bz2
drakx-def745743bbd2e52dd955e2fd86b48003c32293f.tar.xz
drakx-def745743bbd2e52dd955e2fd86b48003c32293f.zip
(AUTOLOAD) show which function has issues (mga#4919)
-rw-r--r--perl-install/c.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/c.pm b/perl-install/c.pm
index 2bf733fe6..9b7a2c046 100644
--- a/perl-install/c.pm
+++ b/perl-install/c.pm
@@ -7,11 +7,12 @@ use MDK::Common;
sub AUTOLOAD() {
$AUTOLOAD =~ /::(.*)/ or return;
- my @l = eval { &{$c::stuff::{$1}} };
+ my $fct = $1;
+ my @l = eval { &{$c::stuff::{$fct}} };
if (my $err = $@) {
$err =~ /Undefined subroutine &main::/ ?
die("cannot find function $AUTOLOAD\n" . backtrace()) :
- die($err);
+ die("$fct: " . $err);
}
wantarray() ? @l : $l[0];
}