From a419039b11d02b7ef2b7f894b199b245a7876303 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 30 Apr 2003 10:09:27 +0000
Subject: perl_checker compliance

---
 perl-install/c.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/c.pm')

diff --git a/perl-install/c.pm b/perl-install/c.pm
index 56996ecf5..ee44fa426 100644
--- a/perl-install/c.pm
+++ b/perl-install/c.pm
@@ -6,7 +6,7 @@ use c::stuff;
 use MDK::Common;
 
 sub AUTOLOAD() {
-    $AUTOLOAD =~ /::(.*)/;
+    $AUTOLOAD =~ /::(.*)/ or return;
     my @l = eval { &{$c::stuff::{$1}} };
     if (my $err = $@) {
 	$err =~ /Undefined subroutine &main::/ ?
-- 
cgit v1.2.1