Ooops, Wrap.pm.diff should be in there. Heh.
This commit is contained in:
parent
df9da77a6c
commit
38fed456fa
@ -1,6 +1,7 @@
|
|||||||
3.03 27 May 1999
|
3.03 28 May 1999
|
||||||
- Added cows/tux.cow, as suggested by xmanoel@i.am
|
- Added cows/tux.cow, as suggested by xmanoel@i.am
|
||||||
- Compatibility with 5.6.0, due to a change in qw().
|
- 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
|
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.
|
||||||
|
@ -3,6 +3,7 @@ INSTALL
|
|||||||
LICENSE
|
LICENSE
|
||||||
MANIFEST
|
MANIFEST
|
||||||
README
|
README
|
||||||
|
Wrap.pm.diff
|
||||||
install.sh
|
install.sh
|
||||||
pgp_public_key.txt
|
pgp_public_key.txt
|
||||||
cowsay
|
cowsay
|
||||||
@ -14,8 +15,8 @@ cows/bud-frogs.cow
|
|||||||
cows/bunny.cow
|
cows/bunny.cow
|
||||||
cows/cheese.cow
|
cows/cheese.cow
|
||||||
cows/cower.cow
|
cows/cower.cow
|
||||||
|
cows/daemon.cow
|
||||||
cows/default.cow
|
cows/default.cow
|
||||||
cows/devil.cow
|
|
||||||
cows/dragon-and-cow.cow
|
cows/dragon-and-cow.cow
|
||||||
cows/dragon.cow
|
cows/dragon.cow
|
||||||
cows/elephant-in-snake.cow
|
cows/elephant-in-snake.cow
|
||||||
@ -50,6 +51,7 @@ cows/telebears.cow
|
|||||||
cows/three-eyes.cow
|
cows/three-eyes.cow
|
||||||
cows/turkey.cow
|
cows/turkey.cow
|
||||||
cows/turtle.cow
|
cows/turtle.cow
|
||||||
|
cows/tux.cow
|
||||||
cows/udder.cow
|
cows/udder.cow
|
||||||
cows/vader-koala.cow
|
cows/vader-koala.cow
|
||||||
cows/www.cow
|
cows/www.cow
|
||||||
|
47
Wrap.pm.diff
Normal file
47
Wrap.pm.diff
Normal file
@ -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;
|
Loading…
Reference in New Issue
Block a user