Duh. If the input is a stream of UTF-8 bytes, all that's

[p5sagit/p5-mst-13.2.git] / ext / Encode / lib / Encode / utf8.pm

diff --git a/ext/Encode/lib/Encode/utf8.pm b/ext/Encode/lib/Encode/utf8.pm
index b7acdad..f353281 100644 (file)
--- a/ext/Encode/lib/Encode/utf8.pm
+++ b/ext/Encode/lib/Encode/utf8.pm
@@ -1,12 +1,13 @@
 package Encode::utf8;
 use strict;
-our $VERSION = do {my @r=(q$Revision: 0.30 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r};
+our $VERSION = do { my @r = (q$Revision: 1.20 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+
 use base 'Encode::Encoding';
 # package to allow long-hand
 #   $octets = encode( utf8 => $string );
 #
 
-__PACKAGE__->Define(qw(UTF-8 utf8));
+__PACKAGE__->Define(qw(utf8));
 
 sub decode
 {
@@ -29,3 +30,9 @@ sub encode
 }
 1;
 __END__
+
+=head1 NAME
+
+Encode::utf8 -- for internal use only
+
+=cut