summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/English.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/English.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/English.pm10
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;