summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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];
}