X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FEnglish.pm;h=c11fbed9eba62195502e8128b8aa45df8af2e542;hb=ff504b36b0f6467f64b463fd17fb34f640855abc;hp=1ebc3de11d31f9b90263124807cfa7b5f0bc254e;hpb=60ed1d8c6a1833ad712cafbcb926be21a03df470;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/English.pm b/lib/English.pm
index 1ebc3de..c11fbed 100644
--- a/lib/English.pm
+++ b/lib/English.pm
@@ -1,7 +1,9 @@
 package English;
 
+our $VERSION = '1.04';
+
 require Exporter;
-@ISA = (Exporter);
+@ISA = qw(Exporter);
 
 =head1 NAME
 
@@ -56,13 +58,13 @@ sub import {
         $globbed_match ||= (
 	    eval q{
 		*MATCH				= *&	;
-		*PREMATCH				= *`	;
-		*POSTMATCH				= *'	;
+		*PREMATCH			= *`	;
+		*POSTMATCH			= *'	;
 		1 ;
 	       }
 	    || do {
 		require Carp ;
-		Carp::croak "Can't create English for match leftovers: $@" ;
+		Carp::croak("Can't create English for match leftovers: $@") ;
 	    }
 	) ;
     }
@@ -112,6 +114,7 @@ sub import {
 	*PROGRAM_NAME
 	*PERL_VERSION
 	*ACCUMULATOR
+	*COMPILING
 	*DEBUGGING
 	*SYSTEM_FD_MAX
 	*INPLACE_EDIT
@@ -122,6 +125,7 @@ sub import {
 	*OSNAME
 	*LAST_REGEXP_CODE_RESULT
 	*EXCEPTIONS_BEING_CAUGHT
+	*LAST_SUBMATCH_RESULT
 	@LAST_MATCH_START
 	@LAST_MATCH_END
 );
@@ -142,6 +146,7 @@ sub import {
 # Matching.
 
 	*LAST_PAREN_MATCH			= *+	;
+	*LAST_SUBMATCH_RESULT			= *^N ;
 	*LAST_MATCH_START			= *-{ARRAY} ;
 	*LAST_MATCH_END				= *+{ARRAY} ;
 
@@ -181,6 +186,8 @@ sub import {
 	*CHILD_ERROR				= *?	;
 	*OS_ERROR				= *!	;
 	    *ERRNO				= *!	;
+	*OS_ERROR				= *!	;
+	    *ERRNO				= *!	;
 	*EXTENDED_OS_ERROR			= *^E	;
 	*EVAL_ERROR				= *@	;
 
@@ -218,7 +225,6 @@ sub import {
 
 #	*ARRAY_BASE				= *[	;
 #	*OFMT					= *#	;
-#	*MULTILINE_MATCHING			= **	;
 #	*OLD_PERL_VERSION			= *]	;
 
 1;