$globbed_match ||= (
eval q{
*MATCH = *& ;
- *PREMATCH = *` ;
- *POSTMATCH = *' ;
+ *PREMATCH = *` ;
+ *POSTMATCH = *' ;
1 ;
}
|| do {
*OSNAME
*LAST_REGEXP_CODE_RESULT
*EXCEPTIONS_BEING_CAUGHT
+ *LAST_SUBMATCH_RESULT
@LAST_MATCH_START
@LAST_MATCH_END
);
# Matching.
*LAST_PAREN_MATCH = *+ ;
+ *LAST_SUBMATCH_RESULT = *^N ;
*LAST_MATCH_START = *-{ARRAY} ;
*LAST_MATCH_END = *+{ARRAY} ;
*CHILD_ERROR = *? ;
*OS_ERROR = *! ;
*ERRNO = *! ;
+ *OS_ERROR = *! ;
+ *ERRNO = *! ;
*EXTENDED_OS_ERROR = *^E ;
*EVAL_ERROR = *@ ;