alazyreader/cowsay
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix things for Perl 5.6. Ugh.

Browse Source
This commit is contained in:
tony 2000-05-28 06:24:46 +00:00
parent d6f7d8a3a7
commit b2e6dd28a9
5 changed files with 26 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -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 3.02 04 November 1999
- Fixed boneheaded code placement so that cowsay -l actually works. - Fixed boneheaded code placement so that cowsay -l actually works.
@ -23,4 +27,4 @@
- SUBJECT is VERB OBJECT - SUBJECT is VERB OBJECT
$Id$ $Id$
This file is part of cowsay. (c) 1999 Tony Monroe. This file is part of cowsay. (c) 1999-2000 Tony Monroe.

1
MANIFEST
View File

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

2
Makefile
View File

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

12
README
View File

@ -1,5 +1,5 @@
=========== ===========
cowsay 3.02 cowsay 3.03
=========== ===========
cowsay is a configurable talking cow, written in Perl. It operates 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 figlet. The third version was a rewrite of the second into Perl
5, whereupon the code got a lot smaller and more manageable. :-) 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. To install cowsay, consult the INSTALL file in this directory.
For the terms and conditions of use, consult the LICENSE file in For the terms and conditions of use, consult the LICENSE file in

10
cowsay
View File

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