Ooops, Wrap.pm.diff should be in there. Heh.

ChangeLog

@@ -1,3 +1,8 @@
+3.03	28 May 1999
+	- Added cows/tux.cow, as suggested by xmanoel@i.am
+	- Compatibility with 5.6.0, due to a change in qw().
+	- Renamed devil.cow to daemon.cow, since I know better. :-)
+
 3.02	04 November 1999
 	- Fixed boneheaded code placement so that cowsay -l actually works.
 
@@ -23,4 +28,4 @@
 	- SUBJECT is VERB OBJECT
 
 $Id$
-This file is part of cowsay.  (c) 1999 Tony Monroe.
+This file is part of cowsay.  (c) 1999-2000 Tony Monroe.

Files.base

@@ -3,6 +3,7 @@ INSTALL
 LICENSE
 MANIFEST
 README
+Wrap.pm.diff
 install.sh
 pgp_public_key.txt
 cowsay
@@ -14,8 +15,8 @@ cows/bud-frogs.cow
 cows/bunny.cow
 cows/cheese.cow
 cows/cower.cow
+cows/daemon.cow
 cows/default.cow
-cows/devil.cow
 cows/dragon-and-cow.cow
 cows/dragon.cow
 cows/elephant-in-snake.cow
@@ -50,6 +51,7 @@ cows/telebears.cow
 cows/three-eyes.cow
 cows/turkey.cow
 cows/turtle.cow
+cows/tux.cow
 cows/udder.cow
 cows/vader-koala.cow
 cows/www.cow

MANIFEST

@@ -3,6 +3,7 @@ INSTALL			Instructions for installing cowsay.
 LICENSE			The license for use and redistribution of cowsay.
 MANIFEST		This file.
 README			Read this first.  Really.
+Wrap.pm.diff		Diff for Text/Wrap.pm.
 cows/*			Support files used by cowsay.
 cowsay			Main cowsay executable.
 cowsay.1		Main cowsay manual page.

Makefile

@@ -6,7 +6,7 @@
 
 FILES= Files.base
 PRODUCT= cowsay
-VER= 3.02
+VER= 3.03
 BASE= ${PRODUCT}-${VER}
 TARZ= ${BASE}.tar.Z
 TARGZ= ${BASE}.tar.gz

README

@@ -1,5 +1,5 @@
 ===========
-cowsay 3.02
+cowsay 3.03
 ===========
 
 cowsay is a configurable talking cow, written in Perl.  It operates
@@ -18,6 +18,16 @@ messages, multiple cowfiles, and even support for cows talking in
 figlet.  The third version was a rewrite of the second into Perl
 5, whereupon the code got a lot smaller and more manageable. :-)
 
+If you are using Perl 5.004, you may have problems with Text::Wrap.
+(Yeesh, this module changes more than it should...)  I've included
+a diff for the Text::Wrap (version 97.011701) that is shipped with
+5.004_04; the concept is simple enough that even older Perls can
+take advantage of this silly little patch; if there is a "sub fill"
+in the documentation for the module, copy it to a more useful
+section of that file.  If not, just take "sub fill" wholesale from
+the patch.  Oh, and consider upgrading to 5.005_03 or later.
+Please.  You'll like it, I promise.
+
 To install cowsay, consult the INSTALL file in this directory.
 
 For the terms and conditions of use, consult the LICENSE file in

RELEASE

@@ -8,16 +8,18 @@ Steps to be done for release:
 
 (3) Change version number in cowsay.1.
 
-(4) Package into tarballs and sign.
+(4) CVS tag.
 
-(5) Upload tarballs to FTP server.
+(5) Package into tarballs and sign.
 
-(6) Point LATEST.tar.gz to current version.
+(6) Upload tarballs to FTP server.
 
-(7) Modify cowsay web pages to reflect current version.
+(7) Point LATEST.tar.gz to current version.
 
-(8) Modify factoids with purl and miho to reflect current version.
+(8) Modify cowsay web pages to reflect current version.
 
-(9) Post to freshmeat.
+(9) Modify factoids with purl and miho to reflect current version.
+
+(10) Post to freshmeat.
 
 $Id$

Wrap.pm.diff

@@ -0,0 +1,47 @@
+*** Wrap.pm.in	Thu May 22 00:21:42 1997
+--- Wrap.pm	Fri Nov 12 10:00:15 1999
+***************
+*** 3,9 ****
+  require Exporter;
+  
+  @ISA = (Exporter);
+! @EXPORT = qw(wrap);
+  @EXPORT_OK = qw($columns);
+  
+  $VERSION = 97.011701;
+--- 3,9 ----
+  require Exporter;
+  
+  @ISA = (Exporter);
+! @EXPORT = qw(wrap fill);
+  @EXPORT_OK = qw($columns);
+  
+  $VERSION = 97.011701;
+***************
+*** 66,71 ****
+--- 66,90 ----
+  
+  	print "-----------$r---------\n" if $debug;;
+  	return $r;
++ }
++ 
++ ## Copied up from below.
++ 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);
+  }
+  
+  1;

cows/tux.cow

@@ -0,0 +1,16 @@
+##
+## TuX
+## (c) pborys@p-soft.silesia.linux.org.pl 
+##
+$the_cow = <<EOC;
+   $thoughts
+    $thoughts
+        .--.
+       |o_o |
+       |:_/ |
+      //   \\ \\
+     (|     | )
+    /'\\_   _/`\\
+    \\___)=(___/
+
+EOC

cowsay

@@ -1,9 +1,9 @@
 #%BANGPERL%
 
 ##
-## Cowsay 3.02
+## Cowsay 3.03
 ##
-## This file is part of cowsay.  (c) 1999 Tony Monroe.
+## This file is part of cowsay.  (c) 1999-2000 Tony Monroe.
 ##
 
 use Text::Tabs qw(expand);
@@ -12,7 +12,7 @@ use File::Basename;
 use Getopt::Std;
 use Cwd;
 
-$version = "3.02";
+$version = "3.03";
 $progname = basename($0);
 $eyes = "oo";
 $tongue = "  ";
@@ -122,7 +122,11 @@ sub construct_balloon {
 	@border = qw[ < > ];
     } else {
 	$thoughts = '\\';
+	if ($V and $V gt v5.6.0) {		# Thanks, perldelta.
 	    @border = qw[ / \\ \\ / | | ];
+	} else {
+	    @border = qw[ / \ \ / | | ];	
+	}
     }
     push(@balloon_lines, 
 	" " . ("_" x $max2) . " \n" ,