blob: 6e015d36ce69324df56ccfb8ff4a45da7854015e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
--- a/cowsay
+++ b/cowsay
@@ -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";
|