summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/inc/latest/private.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-04-26 22:16:26 +0000
committerKarl Berry <karl@freefriends.org>2015-04-26 22:16:26 +0000
commit342e672574c4e67d510e46ab6acd0e21a7d0cf54 (patch)
tree79e04202d08c0404bbd780bd26c1e34710e539b6 /Master/tlpkg/tlperl/lib/inc/latest/private.pm
parentbe2706af7c57a0ef0f4d4e9f684ca4ef74922a82 (diff)
(tl)perl 5.20.2 for windows, from siep
git-svn-id: svn://tug.org/texlive/trunk@37064 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/inc/latest/private.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/inc/latest/private.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/Master/tlpkg/tlperl/lib/inc/latest/private.pm b/Master/tlpkg/tlperl/lib/inc/latest/private.pm
index 2a62c57d088..c3829ca80ac 100644
--- a/Master/tlpkg/tlperl/lib/inc/latest/private.pm
+++ b/Master/tlpkg/tlperl/lib/inc/latest/private.pm
@@ -1,11 +1,13 @@
package inc::latest::private;
+
+use if $] >= 5.019, 'deprecate';
+
use strict;
use vars qw($VERSION);
-$VERSION = '0.4003';
+$VERSION = '0.4205';
$VERSION = eval $VERSION;
use File::Spec;
-use IO::File;
# must ultimately "goto" the import routine of the module to be loaded
# so that the calling package is correct when $mod->import() runs.
@@ -60,10 +62,9 @@ sub _search_bundled {
my $mypath = 'inc';
- local *DH; # Maintain 5.005 compatibility
- opendir DH, $mypath or die "Can't open directory $mypath: $!";
+ opendir my $DH, $mypath or die "Can't open directory $mypath: $!";
- while (defined(my $e = readdir DH)) {
+ while (defined(my $e = readdir $DH)) {
next unless $e =~ /^inc_/;
my $try = File::Spec->catfile($mypath, $e, $file);