diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/English.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/English.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/English.pm b/Master/tlpkg/tlperl/lib/English.pm index 1f1e85d47fd..6ccc5882c8e 100644 --- a/Master/tlpkg/tlperl/lib/English.pm +++ b/Master/tlpkg/tlperl/lib/English.pm @@ -1,6 +1,6 @@ package English; -our $VERSION = '1.05'; +our $VERSION = '1.06_01'; require Exporter; @ISA = qw(Exporter); @@ -11,8 +11,9 @@ English - use nice English (or awk) names for ugly punctuation variables =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/) { ... } @@ -32,6 +33,10 @@ See L<perlvar> for a complete list of these. =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, |