X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fbytes.pm;h=f93d6158d9fc6f177eac2335a9948ba076df7a54;hb=b4408b2550ef78122084a50276f0f56ab8d9db27;hp=0424e1778da9bd374f8bfa9602238e00957742a6;hpb=8058d7abf600e878367b422ec507695e4ac6f25a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/bytes.pm b/lib/bytes.pm
index 0424e17..f93d615 100644
--- a/lib/bytes.pm
+++ b/lib/bytes.pm
@@ -1,15 +1,17 @@
-package byte;
+package bytes;
+
+$bytes::hint_bits = 0x00000008;
 
 sub import {
-    $^H |= 0x00000008;
+    $^H |= $bytes::hint_bits;
 }
 
 sub unimport {
-    $^H &= ~0x00000008;
+    $^H &= ~$bytes::hint_bits;
 }
 
 sub AUTOLOAD {
-    require "byte_heavy.pl";
+    require "bytes_heavy.pl";
     goto &$AUTOLOAD;
 }
 
@@ -20,21 +22,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!
+See L<perlunicode> for the exact details.
 
-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