* 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 (executable)
--- 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 (executable)
--- 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 (executable)
--- 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;