testing

Wrap.pm.diff
View Options

			*** 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;