diff options
| -rw-r--r-- | lib/English.pm | 4 | ||||
| -rw-r--r-- | pod/perlvar.pod | 4 |
2 files changed, 8 insertions, 0 deletions
diff --git a/lib/English.pm b/lib/English.pm index 4e3210b12c..2953a80af9 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 f0cb109005..f8b9c26323 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 |