diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/English.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/English.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/English.pm b/Master/tlpkg/tlperl/lib/English.pm index 6ccc5882c8e..efd61ff89f0 100644 --- a/Master/tlpkg/tlperl/lib/English.pm +++ b/Master/tlpkg/tlperl/lib/English.pm @@ -1,6 +1,6 @@ package English; -our $VERSION = '1.06_01'; +our $VERSION = '1.09'; require Exporter; @ISA = qw(Exporter); @@ -12,8 +12,9 @@ English - use nice English (or awk) names for ugly punctuation variables =head1 SYNOPSIS use English; - use English qw( -no_match_vars ) ; # Avoids regex performance penalty - # in perl 5.16 and earlier + use English qw( -no_match_vars ) ; # Avoids regex performance + # penalty in perl 5.16 and + # earlier ... if ($ERRNO =~ /denied/) { ... } @@ -118,6 +119,7 @@ sub import { *EGID *PROGRAM_NAME *PERL_VERSION + *OLD_PERL_VERSION *ACCUMULATOR *COMPILING *DEBUGGING @@ -213,6 +215,7 @@ sub import { # Internals. *PERL_VERSION = *^V ; + *OLD_PERL_VERSION = *] ; *ACCUMULATOR = *^A ; *COMPILING = *^C ; *DEBUGGING = *^D ; @@ -230,6 +233,5 @@ sub import { # *ARRAY_BASE = *[ ; # *OFMT = *# ; -# *OLD_PERL_VERSION = *] ; 1; |