diff options
author | Karl Berry <karl@freefriends.org> | 2017-04-18 23:10:57 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2017-04-18 23:10:57 +0000 |
commit | 40b4b6e177c62a14c166dbba6adf3abc415af4b2 (patch) | |
tree | 2996bf29509c806bd8064fb6cf38092c1b375ff8 /Master/tlpkg/tlperl/lib/Pod/Simple/Transcode.pm | |
parent | 8e743c86b6872f30b7a35c72aa944455157d4b3f (diff) |
tlperl 5.24.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@43914 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Pod/Simple/Transcode.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Pod/Simple/Transcode.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Master/tlpkg/tlperl/lib/Pod/Simple/Transcode.pm b/Master/tlpkg/tlperl/lib/Pod/Simple/Transcode.pm index 9c60f05d021..ae9298ef311 100644 --- a/Master/tlpkg/tlperl/lib/Pod/Simple/Transcode.pm +++ b/Master/tlpkg/tlperl/lib/Pod/Simple/Transcode.pm @@ -1,8 +1,9 @@ require 5; package Pod::Simple::Transcode; -use vars qw($VERSION ); -$VERSION = '3.29'; +use strict; +use vars qw($VERSION @ISA); +$VERSION = '3.32'; BEGIN { if(defined &DEBUG) {;} # Okay @@ -16,12 +17,12 @@ foreach my $class ( '', ) { $class or die "Couldn't load any encoding classes"; - DEBUG and print "About to try loading $class...\n"; + DEBUG and print STDERR "About to try loading $class...\n"; eval "require $class;"; if($@) { - DEBUG and print "Couldn't load $class: $@\n"; + DEBUG and print STDERR "Couldn't load $class: $@\n"; } else { - DEBUG and print "OK, loaded $class.\n"; + DEBUG and print STDERR "OK, loaded $class.\n"; @ISA = ($class); last; } |