diff --unified --recursive --text rank-amateur-cowsay-cowsay-3.04/cowsay rank-amateur-cowsay-cowsay-3.04-new/cowsay --- rank-amateur-cowsay-cowsay-3.04/cowsay 2016-06-24 21:45:15.000000000 -0500 +++ rank-amateur-cowsay-cowsay-3.04-new/cowsay 2020-09-01 13:00:41.753831084 -0500 @@ -6,6 +6,7 @@ ## This file is part of cowsay. (c) 1999-2000 Tony Monroe. ## +use Encode; use Text::Tabs qw(expand); use Text::Wrap qw(wrap fill $columns); use File::Basename; @@ -103,7 +104,7 @@ my ($l, $m); $m = -1; for my $i (@_) { - $l = length $i; + $l = length(Encode::decode_utf8($i)); $m = $l if ($l > $m); } return $m; diff --unified --recursive --text rank-amateur-cowsay-cowsay-3.04/install.sh rank-amateur-cowsay-cowsay-3.04-new/install.sh --- rank-amateur-cowsay-cowsay-3.04/install.sh 2016-06-24 21:45:15.000000000 -0500 +++ rank-amateur-cowsay-cowsay-3.04-new/install.sh 2020-09-01 12:55:46.191558418 -0500 @@ -67,7 +67,7 @@ echo Okay, time to install this puppy. echo s,%BANGPERL%,!$usethisperl,\; > install.pl -echo s,%PREFIX%,$PREFIX,\; >> install.pl +echo s,%PREFIX%,/usr,\; >> install.pl set -x mkdir -p $PREFIX/bin || (mkdir $PREFIX; mkdir $PREFIX/bin) $usethisperl -p install.pl cowsay > $PREFIX/bin/cowsay