Ooops, Wrap.pm.diff should be in there. Heh.
This commit is contained in:
		@@ -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.
 | 
			
		||||
 
 | 
			
		||||
@@ -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
 | 
			
		||||
 
 | 
			
		||||
							
								
								
									
										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;
 | 
			
		||||
		Reference in New Issue
	
	Block a user