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