diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Memoize.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Memoize.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/Memoize.pm b/Master/tlpkg/tlperl/lib/Memoize.pm index 9a58c4ac743..f4e6522d483 100644 --- a/Master/tlpkg/tlperl/lib/Memoize.pm +++ b/Master/tlpkg/tlperl/lib/Memoize.pm @@ -9,7 +9,7 @@ # write to mjd-perl-memoize+@plover.com for a license. package Memoize; -$VERSION = '1.03'; +$VERSION = '1.03_01'; # Compile-time constants sub SCALAR () { 0 } @@ -184,7 +184,11 @@ sub _my_tie { } my $modulefile = $module . '.pm'; $modulefile =~ s{::}{/}g; - eval { require $modulefile }; + eval { + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; + require $modulefile + }; if ($@) { croak "Memoize: Couldn't load hash tie module `$module': $@; aborting"; } |