Changeset 89fbc5d in lab.git

Timestamp:

Jan 24, 2013 11:16:54 PM (12 years ago)

Author:

mitty <mitty@…>

Branches:

master, trunk

Children:

e4e7407

Parents:

6f4fe5e

Message:

• 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

Location:

misc

Files:

• findcombinable.pl (modified) (1 diff)
• findnonsjis.pl (modified) (1 diff)
• pagetitle.pl (modified) (1 diff)

misc/findcombinable.pl

@@ -4 +4 @@
 use warnings;
 use utf8;
-use encoding 'utf-8';
 
 use Unicode::Normalize qw(NFC NFKC);

misc/findnonsjis.pl

@@ -4 +4 @@
 use warnings;
 use utf8;
-use encoding 'utf-8';
 
 use Encode;

misc/pagetitle.pl

@@ -3 +3 @@
 use strict;
 use warnings;
-use encoding 'utf-8';
+use utf8;
 
 use LWP::Simple;
+binmode STDOUT => 'encoding(utf8)';
 
 my $file = shift @ARGV || exit;