Sophie

Sophie

distrib > Mageia > 1 > i586 > media > core-updates-src > by-pkgid > 5f5946e91cdf0dec287e96e997baa0a1 > files > 16

perl-5.12.3-4.2.mga1.src.rpm

@@ -, +, @@ 
 cpan/Digest/Digest.pm |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)
--- a/cpan/Digest/Digest.pm	
+++ a/cpan/Digest/Digest.pm	
@@ -35,7 +35,9 @@ sub new
 	($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;