summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Digest.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Digest.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Digest.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/Digest.pm b/Master/tlpkg/tlperl/lib/Digest.pm
index c3355a8bd44..16dae9d16e5 100644
--- a/Master/tlpkg/tlperl/lib/Digest.pm
+++ b/Master/tlpkg/tlperl/lib/Digest.pm
@@ -3,7 +3,7 @@ package Digest;
use strict;
use vars qw($VERSION %MMAP $AUTOLOAD);
-$VERSION = "1.17";
+$VERSION = "1.17_01";
%MMAP = (
"SHA-1" => [["Digest::SHA", 1], "Digest::SHA1", ["Digest::SHA2", 1]],
@@ -38,7 +38,11 @@ sub new
unless (exists ${"$class\::"}{"VERSION"}) {
my $pm_file = $class . ".pm";
$pm_file =~ s{::}{/}g;
- eval { require $pm_file };
+ eval {
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
+ require $pm_file
+ };
if ($@) {
$err ||= $@;
next;