summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Pod/Simple/Transcode.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-04-18 23:10:57 +0000
committerKarl Berry <karl@freefriends.org>2017-04-18 23:10:57 +0000
commit40b4b6e177c62a14c166dbba6adf3abc415af4b2 (patch)
tree2996bf29509c806bd8064fb6cf38092c1b375ff8 /Master/tlpkg/tlperl/lib/Pod/Simple/Transcode.pm
parent8e743c86b6872f30b7a35c72aa944455157d4b3f (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.pm11
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;
}