From b2e6dd28a93e1c3cbf7eeac14a0cc3cc32b1b5bd Mon Sep 17 00:00:00 2001
From: tony <tony>
Date: Sun, 28 May 2000 06:24:46 +0000
Subject: [PATCH] Fix things for Perl 5.6.  Ugh.

---
 ChangeLog |  6 +++++-
 MANIFEST  |  1 +
 Makefile  |  2 +-
 README    | 12 +++++++++++-
 cowsay    | 12 ++++++++----
 5 files changed, 26 insertions(+), 7 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 11f15d3..98b5881 100644
--- a/ChangeLog
+++ b/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.
diff --git a/MANIFEST b/MANIFEST
index aaf9450..a3ff805 100644
--- a/MANIFEST
+++ b/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.
diff --git a/Makefile b/Makefile
index d9c3600..8fa892e 100644
--- a/Makefile
+++ b/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
diff --git a/README b/README
index b8d1e52..6fe6888 100644
--- a/README
+++ b/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
diff --git a/cowsay b/cowsay
index f5a4e17..900ca46 100755
--- a/cowsay
+++ b/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 = '\\';
-	@border = qw[ / \\ \\ / | | ];
+	if ($V and $V gt v5.6.0) {		# Thanks, perldelta.
+	    @border = qw[ / \\ \\ / | | ];
+	} else {
+	    @border = qw[ / \ \ / | | ];	
+	}
     }
     push(@balloon_lines, 
 	" " . ("_" x $max2) . " \n" ,