blob: 3aeaf0d66c149bba0f19793497289f9dfe715d79 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
diff -Naur cowsay-3.03.orig//cowsay cowsay-3.03/cowsay
--- rank-amateur-cowsay-cowsay-3.04/cowsay.orig 2011-04-21 16:36:03.581377699 +0200
+++ rank-amateur-cowsay-cowsay-3.04/cowsay 2011-04-21 16:37:07.968430100 +0200
@@ -12,6 +12,13 @@
use Getopt::Std;
use Cwd;
+if (${^UTF8LOCALE}) {
+ binmode STDIN, ':utf8';
+ binmode STDOUT, ':utf8';
+ require Encode;
+ eval { $_ = Encode::decode_utf8($_,1) } for @ARGV;
+}
+
$VERSION = "3.03";
$progname = basename($0);
$eyes = "oo";
|