From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 19 Feb 2000 05:58:42 +0000 (+0000)
Subject: English names for $^R and $^S
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=66558a1012141f943df65dc612575097c38aed90;p=p5sagit%2Fp5-mst-13.2.git

English names for $^R and $^S

p4raw-id: //depot/perl@5132
---

diff --git a/lib/English.pm b/lib/English.pm
index 4e3210b..2953a80 100644
--- a/lib/English.pm
+++ b/lib/English.pm
@@ -97,6 +97,8 @@ sub import {
 	*WARNING
 	*EXECUTABLE_NAME
 	*OSNAME
+	*LAST_REGEXP_CODE_RESULT
+	*EXCEPTIONS_BEING_CAUGHT
 );
 
 # The ground of all being. @ARG is deprecated (5.005 makes @_ lexical)
@@ -173,6 +175,8 @@ sub import {
 	*SYSTEM_FD_MAX				= *^F	;
 	*INPLACE_EDIT				= *^I	;
 	*PERLDB					= *^P	;
+	*LAST_REGEXP_CODE_RESULT		= *^R	;
+	*EXCEPTIONS_BEING_CAUGHT		= *^S	;
 	*BASETIME				= *^T	;
 	*WARNING				= *^W	;
 	*EXECUTABLE_NAME			= *^X	;
diff --git a/pod/perlvar.pod b/pod/perlvar.pod
index f0cb109..f8b9c26 100644
--- a/pod/perlvar.pod
+++ b/pod/perlvar.pod
@@ -854,11 +854,15 @@ were compiled.
 Some bits may be relevant at compile-time only, some at
 run-time only.  This is a new mechanism and the details may change.
 
+=item $LAST_REGEXP_CODE_RESULT
+
 =item $^R
 
 The result of evaluation of the last successful C<(?{ code })>
 regular expression assertion (see L<perlre>).  May be written to.
 
+=item $EXCEPTIONS_BEING_CAUGHT
+
 =item $^S
 
 Current state of the interpreter.  Undefined if parsing of the current