From 89fbc5de53910554c7167b12c82cab8c5eb2dce6 Mon Sep 17 00:00:00 2001
From: mitty <mitty@7d2118f6-f56c-43e7-95a2-4bb3031d96e7>
Date: Thu, 24 Jan 2013 14:16:54 +0000
Subject: [PATCH]  * 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
---
 misc/findcombinable.pl |    1 -
 misc/findnonsjis.pl    |    1 -
 misc/pagetitle.pl      |    3 ++-
 3 files changed, 2 insertions(+), 3 deletions(-)

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;
-- 
1.7.9.5