alias to $^V to $PERL_VERSION_TUPLE

p4raw-id: //depot/perl@5039

diff --git a/lib/English.pm b/lib/English.pm
index 86d75a4..4e3210b 100644 (file)
--- a/lib/English.pm
+++ b/lib/English.pm
@@ -87,6 +87,7 @@ sub import {
        *EGID
        *PROGRAM_NAME
        *PERL_VERSION
+       *PERL_VERSION_TUPLE
        *ACCUMULATOR
        *DEBUGGING
        *SYSTEM_FD_MAX
@@ -165,6 +166,7 @@ sub import {
 # Internals.
 
        *PERL_VERSION                           = *]    ;
+       *PERL_VERSION_TUPLE                     = *^V   ;
        *ACCUMULATOR                            = *^A   ;
        *COMPILING                              = *^C   ;
        *DEBUGGING                              = *^D   ;

diff --git a/pod/perlvar.pod b/pod/perlvar.pod
index 28842ef..f0cb109 100644 (file)
--- a/pod/perlvar.pod
+++ b/pod/perlvar.pod
@@ -873,6 +873,8 @@ The time at which the program began running, in seconds since the
 epoch (beginning of 1970).  The values returned by the B<-M>, B<-A>,
 and B<-C> filetests are based on this value.
 
+=item $PERL_VERSION_TUPLE
+
 =item $^V
 
 The revision, version, and subversion of the Perl interpreter, represented