Changeset View

Standalone View

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