|
Lines 2-8
Link Here
|
| 2 |
|
2 |
|
| 3 |
--- cowsay.orig 2016-06-25 02:45:15 UTC |
3 |
--- cowsay.orig 2016-06-25 02:45:15 UTC |
| 4 |
+++ cowsay |
4 |
+++ cowsay |
| 5 |
@@ -7,7 +7,7 @@ |
5 |
@@ -7,11 +7,18 @@ |
| 6 |
## |
6 |
## |
| 7 |
|
7 |
|
| 8 |
use Text::Tabs qw(expand); |
8 |
use Text::Tabs qw(expand); |
|
Lines 11-16
Link Here
|
| 11 |
use File::Basename; |
11 |
use File::Basename; |
| 12 |
use Getopt::Std; |
12 |
use Getopt::Std; |
| 13 |
use Cwd; |
13 |
use Cwd; |
|
|
14 |
|
| 15 |
+if (${^UTF8LOCALE}) { |
| 16 |
+ binmode STDIN, ':utf8'; |
| 17 |
+ binmode STDOUT, ':utf8'; |
| 18 |
+ require Encode; |
| 19 |
+ eval { $_ = Encode::decode_utf8($_,1) } for @ARGV; |
| 20 |
+} |
| 21 |
+ |
| 22 |
$version = "3.03"; |
| 23 |
$progname = basename($0); |
| 24 |
$eyes = "oo"; |
| 14 |
@@ -185,3 +185,20 @@ Usage: $progname [-bdgpstwy] [-h] [-e ey |
25 |
@@ -185,3 +185,20 @@ Usage: $progname [-bdgpstwy] [-h] [-e ey |
| 15 |
[-l] [-n] [-T tongue] [-W wrapcolumn] [message] |
26 |
[-l] [-n] [-T tongue] [-W wrapcolumn] [message] |
| 16 |
EOF |
27 |
EOF |