diff options
| -rw-r--r-- | lib/bytes.pm | 16 | ||||
| -rw-r--r-- | lib/bytes_heavy.pl | 4 |
2 files changed, 10 insertions, 10 deletions
diff --git a/lib/bytes.pm b/lib/bytes.pm index 0424e1778d..e8ab16f1bd 100644 --- a/lib/bytes.pm +++ b/lib/bytes.pm @@ -1,4 +1,4 @@ -package byte; +package bytes; sub import { $^H |= 0x00000008; @@ -9,7 +9,7 @@ sub unimport { } sub AUTOLOAD { - require "byte_heavy.pl"; + require "bytes_heavy.pl"; goto &$AUTOLOAD; } @@ -20,21 +20,21 @@ __END__ =head1 NAME -byte - Perl pragma to force byte semantics rather than character semantics +bytes - Perl pragma to force byte semantics rather than character semantics =head1 SYNOPSIS - use byte; - no byte; + use bytes; + no bytes; =head1 DESCRIPTION WARNING: The implementation of Unicode support in Perl is incomplete. Expect sudden and unannounced changes! -The C<use byte> pragma disables character semantics for the rest of the -lexical scope in which it appears. C<no byte> can be used to reverse -the effect of C<use byte> within the current lexical scope. +The C<use bytes> pragma disables character semantics for the rest of the +lexical scope in which it appears. C<no bytes> can be used to reverse +the effect of C<use bytes> within the current lexical scope. Perl normally assumes character semantics in the presence of character data (i.e. data that has come from a source that has diff --git a/lib/bytes_heavy.pl b/lib/bytes_heavy.pl index ec0558561d..47bdbf91b0 100644 --- a/lib/bytes_heavy.pl +++ b/lib/bytes_heavy.pl @@ -1,7 +1,7 @@ -package byte; +package bytes; sub length ($) { - BEGIN { byte::import() } + BEGIN { bytes::import() } return CORE::length($_[0]); } |