diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/IO.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/IO.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/IO.pm b/Master/tlpkg/tlperl/lib/IO.pm index 27629582108..44b312b6a3e 100644 --- a/Master/tlpkg/tlperl/lib/IO.pm +++ b/Master/tlpkg/tlperl/lib/IO.pm @@ -7,7 +7,7 @@ use Carp; use strict; use warnings; -our $VERSION = "1.35"; +our $VERSION = "1.36_01"; XSLoader::load 'IO', $VERSION; sub import { @@ -18,6 +18,8 @@ sub import { my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir); + local @INC = @INC; + pop @INC if $INC[-1] eq '.'; eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l) or croak $@; } |