From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Mon, 11 Mar 1996 08:03:38 +0000 (+0000)
Subject: Add $^E and $^O
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d57fa8b6af39ea3eaa99a66e02134fdf61adb746;p=p5sagit%2Fp5-mst-13.2.git

Add $^E and $^O
---

diff --git a/lib/English.pm b/lib/English.pm
index d82ba2c..ce4520a 100644
--- a/lib/English.pm
+++ b/lib/English.pm
@@ -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.