From: Gurusamy Sarathy Date: Sat, 19 Feb 2000 06:33:49 +0000 (+0000) Subject: rename byte:: to bytes:: X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8058d7abf600e878367b422ec507695e4ac6f25a;p=p5sagit%2Fp5-mst-13.2.git rename byte:: to bytes:: p4raw-id: //depot/perl@5133 --- diff --git a/MANIFEST b/MANIFEST index 170a879..bf5fc93 100644 --- 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 --- 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 --- a/lib/utf8.pm +++ b/lib/utf8.pm @@ -70,6 +70,6 @@ of byte semantics. =head1 SEE ALSO -L, L +L, L =cut diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 3a2c296..9e0d0c3 100644 --- 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 and C pragmas are used to control this support -in the current lexical scope. See L, L and L for +strings. The C and C pragmas are used to control this support +in the current lexical scope. See L, L and L for more information. =head2 Interpreter cloning, threads, and concurrency diff --git a/pod/perltoc.pod b/pod/perltoc.pod index 2f8f3a2..461982a 100644 --- 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 --- 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 pragma can always be used to force -byte semantics in a particular lexical scope. See L. +Regardless of the above, the C pragma can always be used to force +byte semantics in a particular lexical scope. See L. The C 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 pragma should be used. +on Unicode data, the C 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, L, L +L, L, L =cut diff --git a/pod/perlvar.pod b/pod/perlvar.pod index f8b9c26..7c499bc 100644 --- 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 pragma always overrides the effect of this flag in the current -lexical scope. See L. +The C pragma always overrides the effect of this flag in the current +lexical scope. See L. =item $EXECUTABLE_NAME diff --git a/t/lib/charnames.t b/t/lib/charnames.t index 8494989..f4d9577 100644 --- 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 --- 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;