From: mitty <mitty@7d2118f6-f56c-43e7-95a2-4bb3031d96e7>
Date: Thu, 24 Jan 2013 14:16:54 +0000 (+0000)
Subject:  * remove obsolete pragma "use encoding 'utf-8';"
X-Git-Url: http://lab.mitty.jp/git/?p=lab.git;a=commitdiff_plain;h=89fbc5de53910554c7167b12c82cab8c5eb2dce6

 * remove obsolete pragma "use encoding 'utf-8';"
  * see http://blog.livedoor.jp/dankogai/archives/51221731.html
 * set binmode to STDOUT
  * see http://blog.livedoor.jp/dankogai/archives/51031595.html
 * see also http://perl-users.jp/articles/advent-calendar/2011/casual/2


git-svn-id: https://lab.mitty.jp/svn/lab/trunk@191 7d2118f6-f56c-43e7-95a2-4bb3031d96e7
---

diff --git a/misc/findcombinable.pl b/misc/findcombinable.pl
index b6e62a9..3e5f51d 100755
--- a/misc/findcombinable.pl
+++ b/misc/findcombinable.pl
@@ -3,7 +3,6 @@
 use strict;
 use warnings;
 use utf8;
-use encoding 'utf-8';
 
 use Unicode::Normalize qw(NFC NFKC);
 
diff --git a/misc/findnonsjis.pl b/misc/findnonsjis.pl
index dbf8c9c..2469ca5 100755
--- a/misc/findnonsjis.pl
+++ b/misc/findnonsjis.pl
@@ -3,7 +3,6 @@
 use strict;
 use warnings;
 use utf8;
-use encoding 'utf-8';
 
 use Encode;
 
diff --git a/misc/pagetitle.pl b/misc/pagetitle.pl
index f3e790b..0027128 100755
--- a/misc/pagetitle.pl
+++ b/misc/pagetitle.pl
@@ -2,9 +2,10 @@
 
 use strict;
 use warnings;
-use encoding 'utf-8';
+use utf8;
 
 use LWP::Simple;
+binmode STDOUT => 'encoding(utf8)';
 
 my $file = shift @ARGV || exit;
 my $list;