restore $PERL_OLD_VERSION to English.pm

In the dark ages, when $^V replaced $] for $PERL_VERSION,
$PERL_OLD_VERSION was added as a comment in the list of deprecated
variable.  Since $] is *not* deprecated, this commit restores it.

diff --git a/lib/English.pm b/lib/English.pm
index 6560f5f..efd61ff 100644 (file)
--- a/lib/English.pm
+++ b/lib/English.pm
@@ -1,6 +1,6 @@
 package English;
 
-our $VERSION = '1.08';
+our $VERSION = '1.09';
 
 require Exporter;
 @ISA = qw(Exporter);
@@ -119,6 +119,7 @@ sub import {
        *EGID
        *PROGRAM_NAME
        *PERL_VERSION
+       *OLD_PERL_VERSION
        *ACCUMULATOR
        *COMPILING
        *DEBUGGING
@@ -214,6 +215,7 @@ sub import {
 # Internals.
 
        *PERL_VERSION                           = *^V   ;
+       *OLD_PERL_VERSION                       = *]    ;
        *ACCUMULATOR                            = *^A   ;
        *COMPILING                              = *^C   ;
        *DEBUGGING                              = *^D   ;
@@ -231,6 +233,5 @@ sub import {
 
 #      *ARRAY_BASE                             = *[    ;
 #      *OFMT                                   = *#    ;
-#      *OLD_PERL_VERSION                       = *]    ;
 
 1;

diff --git a/lib/English.t b/lib/English.t
index bc0a5da..f23dd84 100644 (file)
--- a/lib/English.t
+++ b/lib/English.t
@@ -87,6 +87,7 @@ is( $PROGRAM_NAME, $0, '$PROGRAM_NAME' );
 is( $BASETIME, $^T, '$BASETIME' );
 
 is( $PERL_VERSION, $^V, '$PERL_VERSION' );
+is( $OLD_PERL_VERSION, $], '$OLD_PERL_VERSION' );
 is( $DEBUGGING, $^D, '$DEBUGGING' );
 
 is( $WARNING, 0, '$WARNING' );