Remove dead code that was emitting warnings.

[perl5.git] / README.jp

diff --git a/README.jp b/README.jp
index 8fd4dcf..5967348 100644 (file)
--- a/README.jp
+++ b/README.jp
@@ -4,6 +4,8 @@ specially designed to be readable as is.
 
 The following documentation is written in euc-jp encoding.
 
+=encoding euc-jp
+
 =head1 NAME
 
 perljp - ÆüËܸì Perl ¥¬¥¤¥É
@@ -78,7 +80,7 @@ Perl5.8
   # jcode.pl
   require "jcode.pl";
   while(<>){
-    jcode::convert(*_, 'euc', 'sjis);
+    jcode::convert(*_, 'euc', 'sjis');
     print;
   }
   # Jcode.pm
@@ -93,7 +95,7 @@ Perl5.8
     print;
   }
   # Perl 5.8 - encoding ¤òÍøÍѤ·¤Æ
-  use encoding 'euc-jp', STDIN=>'shiftjis'
+  use encoding 'euc-jp', STDIN => 'shiftjis';
   while(<>){
        print;
   }