From def745743bbd2e52dd955e2fd86b48003c32293f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 14 Mar 2012 07:56:14 +0000
Subject: (AUTOLOAD) show which function has issues (mga#4919)

---
 perl-install/c.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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];
 }
-- 
cgit v1.2.1