diff options
| author | kris <kris@FreeBSD.org> | 2000-09-02 18:05:42 +0800 |
|---|---|---|
| committer | kris <kris@FreeBSD.org> | 2000-09-02 18:05:42 +0800 |
| commit | 159938af4bf3e582c0061a19a716e36b26188c0a (patch) | |
| tree | 8f23cbfc8bbaa96afe7c940d261a73c0ab878b8a | |
| parent | 72f8725a2492048595dd999dc38d54e95e6636c0 (diff) | |
| download | freebsd-ports-gnome-159938af4bf3e582c0061a19a716e36b26188c0a.tar.gz freebsd-ports-gnome-159938af4bf3e582c0061a19a716e36b26188c0a.tar.zst freebsd-ports-gnome-159938af4bf3e582c0061a19a716e36b26188c0a.zip | |
________________________________
< Oops, forgot to add this patch >
--------------------------------
\ , ,
\ /( )`
\ \ \___ / |
/- _ `-/ '
(/\/ \ \ /\
/ / | ` \
O O ) / |
`-^--'`< '
(_.) _ ) /
`.___/` /
`-----' /
<----. __ / __ \
<----|====O)))==) \) /====
<----' `--' `.__,' \
| |
\ /
______( (_ / \______
,' ,-----' | \
`--{__________) \/
| -rw-r--r-- | games/cowsay/files/patch-aa | 35 |
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); + } |