package English;
-our $VERSION = '1.00';
+our $VERSION = '1.10';
require Exporter;
-@ISA = (Exporter);
+@ISA = qw(Exporter);
=head1 NAME
=head1 SYNOPSIS
- use English qw( -no_match_vars ) ; # Avoids regex performance penalty
use English;
+ use English qw( -no_match_vars ) ; # Avoids regex performance
+ # penalty in perl 5.16 and
+ # earlier
...
if ($ERRNO =~ /denied/) { ... }
=head1 PERFORMANCE
+NOTE: This was fixed in perl 5.20. Mentioning these three variables no
+longer makes a speed difference. This section still applies if your code
+is to run on perl 5.18 or earlier.
+
This module can provoke sizeable inefficiencies for regular expressions,
due to unfortunate implementation details. If performance matters in
your application and you don't need $PREMATCH, $MATCH, or $POSTMATCH,
}
|| do {
require Carp ;
- Carp::croak "Can't create English for match leftovers: $@" ;
+ Carp::croak("Can't create English for match leftovers: $@") ;
}
) ;
}
*EGID
*PROGRAM_NAME
*PERL_VERSION
+ *OLD_PERL_VERSION
*ACCUMULATOR
+ *COMPILING
*DEBUGGING
*SYSTEM_FD_MAX
*INPLACE_EDIT
@COMPLETE_EXPORT = ( @MINIMAL_EXPORT, @MATCH_EXPORT ) ;
-# The ground of all being. @ARG is deprecated (5.005 makes @_ lexical)
+# The ground of all being.
*ARG = *_ ;
*FORMAT_PAGE_NUMBER = *% ;
*FORMAT_LINES_PER_PAGE = *= ;
- *FORMAT_LINES_LEFT = *- ;
+ *FORMAT_LINES_LEFT = *-{SCALAR} ;
*FORMAT_NAME = *~ ;
*FORMAT_TOP_NAME = *^ ;
*FORMAT_LINE_BREAK_CHARACTERS = *: ;
# Internals.
*PERL_VERSION = *^V ;
+ *OLD_PERL_VERSION = *] ;
*ACCUMULATOR = *^A ;
*COMPILING = *^C ;
*DEBUGGING = *^D ;
# *ARRAY_BASE = *[ ;
# *OFMT = *# ;
-# *OLD_PERL_VERSION = *] ;
1;