Fix things for Perl 5.6. Ugh.

ChangeLog

@@ -1,3 +1,7 @@
+3.03	19 May 1999
+	- Added cows/tux.cow, as suggested by xmanoel@i.am
+	- Compatibility with 5.6.0, due to a change in qw().
+
 3.02	04 November 1999
 	- Fixed boneheaded code placement so that cowsay -l actually works.
 
@@ -23,4 +27,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.

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

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" ,