This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add $^E and $^O
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>
Mon, 11 Mar 1996 08:03:38 +0000 (08:03 +0000)
committerCharles Bailey <bailey@genetics.upenn.edu>
Mon, 11 Mar 1996 08:03:38 +0000 (08:03 +0000)
lib/English.pm

index d82ba2c..ce4520a 100644 (file)
@@ -67,6 +67,7 @@ sub import {
        *CHILD_ERROR
        *OS_ERROR
        *ERRNO
+       *EXTENDED_OS_ERROR
        *EVAL_ERROR
        *PROCESS_ID
        *PID
@@ -88,6 +89,7 @@ sub import {
        *BASETIME
        *WARNING
        *EXECUTABLE_NAME
+       *OSNAME
 );
 
 # The ground of all being.
@@ -136,6 +138,7 @@ sub import {
 
        *CHILD_ERROR                            = *?    ;
        *OS_ERROR                               = *!    ;
+       *EXTENDED_OS_ERROR                      = *^E   ;
            *ERRNO                              = *!    ;
        *EVAL_ERROR                             = *@    ;
 
@@ -164,6 +167,7 @@ sub import {
        *BASETIME                               = *^T   ;
        *WARNING                                = *^W   ;
        *EXECUTABLE_NAME                        = *^X   ;
+       *OSNAME                                 = *^O   ;
 
 # Deprecated.