From 38fed456fa0a343468fda5ace1aec8a9d7208d20 Mon Sep 17 00:00:00 2001
From: tony <tony>
Date: Mon, 29 May 2000 17:55:24 +0000
Subject: [PATCH] Ooops, Wrap.pm.diff should be in there.  Heh.

---
 ChangeLog    |  3 ++-
 Files.base   |  4 +++-
 Wrap.pm.diff | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 52 insertions(+), 2 deletions(-)
 create mode 100644 Wrap.pm.diff

diff --git a/ChangeLog b/ChangeLog
index 2810da8..e4caa00 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
-3.03	27 May 1999
+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.
diff --git a/Files.base b/Files.base
index 721c7c8..f1858fe 100644
--- a/Files.base
+++ b/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
diff --git a/Wrap.pm.diff b/Wrap.pm.diff
new file mode 100644
index 0000000..1da0640
--- /dev/null
+++ b/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;