diff options
author | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
commit | a4c42bfb2337d37da89d789cb8cc226367994e32 (patch) | |
tree | c3eabdef5d565a4e515d2be0d9d4d0540bde0250 /Master/tlpkg/tlperl/lib/SelfLoader.pm | |
parent | 8274475057f024d35332ac47c2e2f23ea156e6ed (diff) |
perl 5.14.2 from siep
git-svn-id: svn://tug.org/texlive/trunk@26525 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/SelfLoader.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/SelfLoader.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/SelfLoader.pm b/Master/tlpkg/tlperl/lib/SelfLoader.pm index 047f7768e89..20e02cccdca 100644 --- a/Master/tlpkg/tlperl/lib/SelfLoader.pm +++ b/Master/tlpkg/tlperl/lib/SelfLoader.pm @@ -1,7 +1,8 @@ package SelfLoader; use 5.008; use strict; -our $VERSION = "1.17"; +use IO::Handle; +our $VERSION = "1.18"; # The following bit of eval-magic is necessary to make this work on # perls < 5.009005. @@ -102,6 +103,7 @@ sub _load_stubs { close $fh or die "close: $!"; # autocloses, but be paranoid open $fh, '<&', $nfh or croak "reopen2: $!"; # dup() the fd "back" close $nfh or die "close after reopen: $!"; # autocloses, but be paranoid + $fh->untaint; } $Cache{"${currpack}::<DATA"} = 1; # indicate package is cached |