minor logic tweak for reserved word warning

[perl5.git] / lib / English.pm

diff --git a/lib/English.pm b/lib/English.pm
index 736b90d..9f29a48 100644 (file)
--- a/lib/English.pm
+++ b/lib/English.pm
@@ -15,6 +15,14 @@ English - use nice English (or awk) names for ugly punctuation variables
 
 =head1 DESCRIPTION
 
+You should I<not> use this module in programs intended to be portable
+among Perl versions, programs that must perform regular expression
+matching operations efficiently, or libraries intended for use with
+such programs.  In a sense, this module is deprecated.  The reasons
+for this have to do with implementation details of the Perl
+interpreter which are too thorny to go into here.  Perhaps someday
+they will be fixed to make "C<use English>" more practical.
+
 This module provides aliases for the built-in variables whose
 names no one seems to like to read.  Variables with side-effects
 which get triggered just by accessing them (like $0) will still 
@@ -65,7 +73,6 @@ sub import {
        *FORMAT_LINE_BREAK_CHARACTERS
        *FORMAT_FORMFEED
        *CHILD_ERROR
-       *SYSTEM_CHILD_STATUS
        *OS_ERROR
        *ERRNO
        *EXTENDED_OS_ERROR
@@ -93,7 +100,7 @@ sub import {
        *OSNAME
 );
 
-# The ground of all being.
+# The ground of all being. @ARG is deprecated (5.005 makes @_ lexical)
 
        *ARG                                    = *_    ;
 
@@ -138,7 +145,6 @@ sub import {
 # Error status.
 
        *CHILD_ERROR                            = *?    ;
-       *SYSTEM_CHILD_STATUS                    = *^S   ;
        *OS_ERROR                               = *!    ;
            *ERRNO                              = *!    ;
        *EXTENDED_OS_ERROR                      = *^E   ;
@@ -162,6 +168,7 @@ sub import {
 
        *PERL_VERSION                           = *]    ;
        *ACCUMULATOR                            = *^A   ;
+       *COMPILING                              = *^C   ;
        *DEBUGGING                              = *^D   ;
        *SYSTEM_FD_MAX                          = *^F   ;
        *INPLACE_EDIT                           = *^I   ;