rename byte:: to bytes::

p4raw-id: //depot/perl@5133

diff --git a/MANIFEST b/MANIFEST
index 170a879..bf5fc93 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -681,8 +681,8 @@ lib/bigfloat.pl             An arbitrary precision floating point package
 lib/bigint.pl          An arbitrary precision integer arithmetic package
 lib/bigrat.pl          An arbitrary precision rational arithmetic package
 lib/blib.pm            For "use blib"
-lib/byte.pm            Pragma to enable byte operations
-lib/byte_heavy.pl      Support routines for byte pragma
+lib/bytes.pm           Pragma to enable byte operations
+lib/bytes_heavy.pl     Support routines for byte pragma
 lib/cacheout.pl                Manages output filehandles when you need too many
 lib/charnames.pm       Character names
 lib/chat2.pl            Obsolete ipc library (use Comm.pm etc instead)

diff --git a/lib/byte.pm b/lib/bytes.pm
similarity index 100%
rename from lib/byte.pm
rename to lib/bytes.pm

diff --git a/lib/byte_heavy.pl b/lib/bytes_heavy.pl
similarity index 100%
rename from lib/byte_heavy.pl
rename to lib/bytes_heavy.pl

diff --git a/lib/charnames.pm b/lib/charnames.pm
index 817b4c5..ff9d5ea 100644 (file)
--- a/lib/charnames.pm
+++ b/lib/charnames.pm
@@ -30,8 +30,8 @@ sub charnames {
   die "Unknown charname '$name'" unless @off;
   
   my $ord = hex substr $txt, $off[0] - 4, 4;
-  if ($^H & 0x8) {     # "use byte" in effect?
-    use byte;
+  if ($^H & 0x8) {     # "use bytes" in effect?
+    use bytes;
     return chr $ord if $ord <= 255;
     my $hex = sprintf '%X=0%o', $ord, $ord;
     my $fname = substr $txt, $off[0] + 2, $off[1] - $off[0] - 2;

diff --git a/lib/utf8.pm b/lib/utf8.pm
index d9e9bec..3098fe2 100644 (file)
--- a/lib/utf8.pm
+++ b/lib/utf8.pm
@@ -70,6 +70,6 @@ of byte semantics.
 
 =head1 SEE ALSO
 
-L<perlunicode>, L<byte>
+L<perlunicode>, L<bytes>
 
 =cut

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 3a2c296..9e0d0c3 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -380,8 +380,8 @@ building and installing from source, the defaults should be fine.
 =head2 Unicode and UTF-8 support
 
 Perl can optionally use UTF-8 as its internal representation for character
-strings.  The C<utf8> and C<byte> pragmas are used to control this support
-in the current lexical scope.  See L<perlunicode>, L<utf8> and L<byte> for
+strings.  The C<utf8> and C<bytes> pragmas are used to control this support
+in the current lexical scope.  See L<perlunicode>, L<utf8> and L<bytes> for
 more information.
 
 =head2 Interpreter cloning, threads, and concurrency

diff --git a/pod/perltoc.pod b/pod/perltoc.pod
index 2f8f3a2..461982a 100644 (file)
--- a/pod/perltoc.pod
+++ b/pod/perltoc.pod
@@ -3878,7 +3878,7 @@ method, locked
 
 =back
 
-=head2 byte - Perl pragma to turn force treating strings as bytes not
+=head2 bytes - Perl pragma to turn force treating strings as bytes not
 UNICODE
 
 =over

diff --git a/pod/perlunicode.pod b/pod/perlunicode.pod
index bc88036..c5ffbaf 100644 (file)
--- a/pod/perlunicode.pod
+++ b/pod/perlunicode.pod
@@ -36,8 +36,8 @@ global flag is set to C<1>), all system calls will use the
 corresponding wide character APIs.  This is currently only implemented
 on Windows.
 
-Regardless of the above, the C<byte> pragma can always be used to force
-byte semantics in a particular lexical scope.  See L<byte>.
+Regardless of the above, the C<bytes> pragma can always be used to force
+byte semantics in a particular lexical scope.  See L<bytes>.
 
 The C<utf8> pragma is primarily a compatibility device that enables
 recognition of UTF-8 in literals encountered by the parser.  It is also
@@ -53,7 +53,7 @@ the input data came from a Unicode source (for example, by adding a
 character encoding discipline to the filehandle whence it came, or a
 literal UTF-8 string constant in the program), character semantics
 apply; otherwise, byte semantics are in effect.  To force byte semantics
-on Unicode data, the C<byte> pragma should be used.
+on Unicode data, the C<bytes> pragma should be used.
 
 Under character semantics, many operations that formerly operated on
 bytes change to operating on characters.  For ASCII data this makes
@@ -227,6 +227,6 @@ tend to run slower.  Avoidance of locales is strongly encouraged.
 
 =head1 SEE ALSO
 
-L<byte>, L<utf8>, L<perlvar/"${^WIDE_SYSTEM_CALLS}">
+L<bytes>, L<utf8>, L<perlvar/"${^WIDE_SYSTEM_CALLS}">
 
 =cut

diff --git a/pod/perlvar.pod b/pod/perlvar.pod
index f8b9c26..7c499bc 100644 (file)
--- a/pod/perlvar.pod
+++ b/pod/perlvar.pod
@@ -924,8 +924,8 @@ The initial value is typically C<0> for compatibility with Perl versions
 earlier than 5.6, but may be automatically set to C<1> by Perl if the system
 provides a user-settable default (e.g., C<$ENV{LC_CTYPE}>).
 
-The C<byte> pragma always overrides the effect of this flag in the current
-lexical scope.  See L<byte>.
+The C<bytes> pragma always overrides the effect of this flag in the current
+lexical scope.  See L<bytes>.
 
 =item $EXECUTABLE_NAME
 

diff --git a/t/lib/charnames.t b/t/lib/charnames.t
index 8494989..f4d9577 100644 (file)
--- a/t/lib/charnames.t
+++ b/t/lib/charnames.t
@@ -16,7 +16,7 @@ print "not " unless "Here\N{EXCLAMATION MARK}?" eq "Here\041?";
 print "ok 1\n";
 
 {
-  use byte;                    # UTEST can switch utf8 on
+  use bytes;                   # UTEST can switch utf8 on
 
   print "# \$res=$res \$\@='$@'\nnot "
     if $res = eval <<'EOE'

diff --git a/t/op/ver.t b/t/op/ver.t
index e052646..66e8378 100755 (executable)
--- a/t/op/ver.t
+++ b/t/op/ver.t
@@ -26,7 +26,7 @@ print "not " unless sprintf("%v", v1.22.333.4444) eq '1.22.333.4444';
 print "ok $test\n";  ++$test;
 
 {
-    use byte;
+    use bytes;
     print "not " unless
         sprintf("%v", v1.22.333.4444) eq '1.22.197.141.225.133.156';
     print "ok $test\n";  ++$test;