From: Gurusamy Sarathy Date: Sat, 19 Feb 2000 06:36:46 +0000 (+0000) Subject: s/byte/bytes/g remnants X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=657b208b434818aa5e54d68b0a8ad320c0252adf;p=p5sagit%2Fp5-mst-13.2.git s/byte/bytes/g remnants p4raw-id: //depot/perl@5134 --- diff --git a/lib/bytes.pm b/lib/bytes.pm index 0424e17..e8ab16f 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 pragma disables character semantics for the rest of the -lexical scope in which it appears. C can be used to reverse -the effect of C within the current lexical scope. +The C pragma disables character semantics for the rest of the +lexical scope in which it appears. C can be used to reverse +the effect of C 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 ec05585..47bdbf9 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]); }