1 files changed, 35 insertions, 0 deletions

diff --git a/games/cowsay/files/patch-aa b/games/cowsay/files/patch-aa
new file mode 100644
index 000000000000..7bf7019778eb
--- /dev/null
+++ b/games/cowsay/files/patch-aa
@@ -0,0 +1,35 @@
+$NetBSD: patch-aa,v 1.1.1.1 2000/03/25 20:13:24 jlam Exp $
+
+--- cowsay.orig	Thu Nov  4 11:29:53 1999
++++ cowsay	Sat Mar 25 12:07:09 2000
+@@ -7,7 +7,7 @@
+ ##
+ 
+ use Text::Tabs qw(expand);
+-use Text::Wrap qw(wrap fill $columns);
++use Text::Wrap qw(wrap $columns);
+ use File::Basename;
+ use Getopt::Std;
+ use Cwd;
+@@ -180,4 +180,21 @@
+ Usage: $progname [-bdgpstwy] [-h] [-e eyes] [-f cowfile] 
+           [-l] [-n] [-T tongue] [-W wrapcolumn] [message]
+ EOF
++}
++
++sub fill {
++    my ($ip, $xp, @raw) = @_;
++    my @para;
++    my $pp;
++
++    for $pp (split(/\n\s+/, join("\n",@raw))) {
++        $pp =~ s/\s+/ /g;
++        my $x = wrap($ip, $xp, $pp);
++        push(@para, $x);
++    }
++
++    # if paragraph_indent is the same as line_indent, 
++    # separate paragraphs with blank lines
++
++    return join ($ip eq $xp ? "\n\n" : "\n", @para);
+ }