package English;
-our $VERSION = '1.00';
+our $VERSION = '1.04';
require Exporter;
-@ISA = (Exporter);
+@ISA = qw(Exporter);
=head1 NAME
$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: $@") ;
}
) ;
}
*PROGRAM_NAME
*PERL_VERSION
*ACCUMULATOR
+ *COMPILING
*DEBUGGING
*SYSTEM_FD_MAX
*INPLACE_EDIT
*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 = *@ ;
# *ARRAY_BASE = *[ ;
# *OFMT = *# ;
-# *MULTILINE_MATCHING = ** ;
# *OLD_PERL_VERSION = *] ;
1;