Sophie

Sophie

distrib > Mageia > 1 > i586 > media > core-updates-src > by-pkgid > ca5aa585837b3356908b9776e50de3c3 > files > 1

perl-Digest-1.160.0-2.1.mga1.src.rpm

--- Digest.pm.orig	2012-01-14 05:06:22.000000000 +0100
+++ Digest.pm	2012-01-14 05:07:17.000000000 +0100
@@ -35,7 +35,9 @@
 	($class, @args) = @$class if ref($class);
 	no strict 'refs';
 	unless (exists ${"$class\::"}{"VERSION"}) {
-	    eval "require $class";
+		my $pm_file = $class . ".pm";
+		$pm_file =~ s{::}{/}g;
+		eval { require $pm_file };
 	    if ($@) {
 		$err ||= $@;
 		next;