summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/Getopt/Std.pm
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Getopt/Std.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Getopt/Std.pm16
1 files changed, 12 insertions, 4 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Getopt/Std.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Getopt/Std.pm
index 5b8878dbb8..7ce625f4b9 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Getopt/Std.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Getopt/Std.pm
@@ -1,5 +1,8 @@
package Getopt::Std;
-require 5.000;
+
+use strict;
+use warnings;
+
require Exporter;
=head1 NAME
@@ -79,9 +82,9 @@ and version_mess() with the switches string as an argument.
=cut
-@ISA = qw(Exporter);
-@EXPORT = qw(getopt getopts);
-$VERSION = '1.12';
+our @ISA = qw(Exporter);
+our @EXPORT = qw(getopt getopts);
+our $VERSION = '1.13';
# uncomment the next line to disable 1.03-backward compatibility paranoia
# $STANDARD_HELP_VERSION = 1;
@@ -119,6 +122,7 @@ sub getopt (;$$) {
$$hash{$first} = $rest;
}
else {
+ no strict 'refs';
${"opt_$first"} = $rest;
push( @EXPORT, "\$opt_$first" );
}
@@ -128,6 +132,7 @@ sub getopt (;$$) {
$$hash{$first} = 1;
}
else {
+ no strict 'refs';
${"opt_$first"} = 1;
push( @EXPORT, "\$opt_$first" );
}
@@ -145,6 +150,7 @@ sub getopt (;$$) {
}
}
+our ($OUTPUT_HELP_VERSION, $STANDARD_HELP_VERSION);
sub output_h () {
return $OUTPUT_HELP_VERSION if defined $OUTPUT_HELP_VERSION;
return \*STDOUT if $STANDARD_HELP_VERSION;
@@ -251,6 +257,7 @@ sub getopts ($;$) {
$$hash{$first} = $rest;
}
else {
+ no strict 'refs';
${"opt_$first"} = $rest;
push( @EXPORT, "\$opt_$first" );
}
@@ -260,6 +267,7 @@ sub getopts ($;$) {
$$hash{$first} = 1;
}
else {
+ no strict 'refs';
${"opt_$first"} = 1;
push( @EXPORT, "\$opt_$first" );
}