Here's the patch to fix up all the core libraries and utilities so
pod2man doesn't scream about POD lines with nothing but whitespace
anymore. Again, since the patch is mostly whitespace I have to do it
as an attachment to be safe.
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Sometimes these hairstyles are exaggerated beyond the laws of physics
- Unknown narrator speaking about Anime
diff -ur perl-5.5.670/ext/Data/Dumper/Dumper.pm
perl-5.5.670-devel/ext/Data/Dumper/Dumper.pm
--- perl-5.5.670/ext/Data/Dumper/Dumper.pm Sun Jan 23 05:37:58 2000
+++ perl-5.5.670-devel/ext/Data/Dumper/Dumper.pm Fri Mar 3 10:17:32 2000
@@ -889,7 +889,7 @@
$boo = [ 1, [], "abcd", \*foo,
{1 => 'a', 023 => 'b', 0x45 => 'c'},
\\"p\q\'r", $foo, $fuz];
-
+
########
# simple usage
########
@@ -910,12 +910,12 @@
$Data::Dumper::Useqq = 1; # print strings in double quotes
print Dumper($boo);
-
-
+
+
########
# recursive structures
########
-
+
@c = ('c');
$c = \@c;
$b = {};
@@ -924,24 +924,24 @@
$b->{b} = $a->[1];
$b->{c} = $a->[2];
print Data::Dumper->Dump([$a,$b,$c], [qw(a b c)]);
-
-
+
+
$Data::Dumper::Purity = 1; # fill in the holes for eval
print Data::Dumper->Dump([$a, $b], [qw(*a b)]); # print as @a
print Data::Dumper->Dump([$b, $a], [qw(*b a)]); # print as %b
-
-
+
+
$Data::Dumper::Deepcopy = 1; # avoid cross-refs
print Data::Dumper->Dump([$b, $a], [qw(*b a)]);
-
-
+
+
$Data::Dumper::Purity = 0; # avoid cross-refs
print Data::Dumper->Dump([$b, $a], [qw(*b a)]);
-
+
########
# deep structures
########
-
+
$a = "pearl";
$b = [ $a ];
$c = { 'b' => $b };
@@ -953,23 +953,23 @@
$Data::Dumper::Maxdepth = 3; # no deeper than 3 refs down
print Data::Dumper->Dump([$f], [qw(f)]);
-
+
########
# object-oriented usage
########
-
+
$d = Data::Dumper->new([$a,$b], [qw(a b)]);
$d->Seen({'*c' => $c}); # stash a ref without printing it
$d->Indent(3);
print $d->Dump;
$d->Reset->Purity(0); # empty the seen cache
print join "----\n", $d->Dump;
-
-
+
+
########
# persistence
########
-
+
package Foo;
sub new { bless { state => 'awake' }, shift }
sub Freeze {
@@ -978,7 +978,7 @@
$s->{state} = 'asleep';
return bless $s, 'Foo::ZZZ';
}
-
+
package Foo::ZZZ;
sub Thaw {
my $s = shift;
@@ -986,7 +986,7 @@
$s->{state} = 'awake';
return bless $s, 'Foo';
}
-
+
package Foo;
use Data::Dumper;
$a = Foo->new;
@@ -997,12 +997,12 @@
print $c;
$d = eval $c;
print Data::Dumper->Dump([$d], ['d']);
-
-
+
+
########
# symbol substitution (useful for recreating CODE refs)
########
-
+
sub foo { print "foo speaking\n" }
*other = \&foo;
$bar = [ \&other ];
diff -ur perl-5.5.670/ext/Errno/Errno_pm.PL perl-5.5.670-devel/ext/Errno/Errno_pm.PL
--- perl-5.5.670/ext/Errno/Errno_pm.PL Sun Feb 20 06:51:48 2000
+++ perl-5.5.670-devel/ext/Errno/Errno_pm.PL Fri Mar 3 10:17:32 2000
@@ -291,7 +291,7 @@
non-zero value only if C<$!> is set to that value. For example:
use Errno;
-
+
unless (open(FH, "/fangorn/spouse")) {
if ($!{ENOENT}) {
warn "Get a wife!\n";
--- perl-5.5.670/ext/File/Glob/Glob.pm Wed Mar 1 01:39:19 2000
+++ perl-5.5.670-devel/ext/File/Glob/Glob.pm Fri Mar 3 10:17:32 2000
@@ -346,7 +346,7 @@
Copyright (c) 1989, 1993 The Regents of the University of California.
All rights reserved.
-
+
This code is derived from software contributed to Berkeley by
Guido van Rossum.
diff -ur perl-5.5.670/ext/IO/lib/IO/Select.pm
perl-5.5.670-devel/ext/IO/lib/IO/Select.pm
--- perl-5.5.670/ext/IO/lib/IO/Select.pm Sun Jan 23 05:31:58 2000
+++ perl-5.5.670-devel/ext/IO/lib/IO/Select.pm Fri Mar 3 10:17:32 2000
@@ -347,7 +347,7 @@
$lsn = new IO::Socket::INET(Listen => 1, LocalPort => 8080);
$sel = new IO::Select( $lsn );
-
+
while(@ready = $sel->can_read) {
foreach $fh (@ready) {
if($fh == $lsn) {
diff -ur perl-5.5.670/ext/IO/lib/IO/Socket/INET.pm
perl-5.5.670-devel/ext/IO/lib/IO/Socket/INET.pm
--- perl-5.5.670/ext/IO/lib/IO/Socket/INET.pm Mon Feb 21 23:41:20 2000
+++ perl-5.5.670-devel/ext/IO/lib/IO/Socket/INET.pm Fri Mar 3 10:17:32 2000
@@ -347,7 +347,7 @@
NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE
-
+
As of VERSION 1.18 all IO::Socket objects have autoflush turned on
by default. This was not the case with earlier releases.
diff -ur perl-5.5.670/ext/IO/lib/IO/Socket.pm
perl-5.5.670-devel/ext/IO/lib/IO/Socket.pm
--- perl-5.5.670/ext/IO/lib/IO/Socket.pm Wed Feb 23 22:37:25 2000
+++ perl-5.5.670-devel/ext/IO/lib/IO/Socket.pm Fri Mar 3 10:17:32 2000
@@ -325,7 +325,7 @@
configuration method of the package for that domain, See below.
NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE
-
+
As of VERSION 1.18 all IO::Socket objects have autoflush turned on
by default. This was not the case with earlier releases.
diff -ur perl-5.5.670/ext/IPC/SysV/Msg.pm perl-5.5.670-devel/ext/IPC/SysV/Msg.pm
--- perl-5.5.670/ext/IPC/SysV/Msg.pm Sun Jan 23 07:14:30 2000
+++ perl-5.5.670-devel/ext/IPC/SysV/Msg.pm Fri Mar 3 10:17:32 2000
@@ -113,15 +113,15 @@
use IPC::SysV qw(IPC_PRIVATE S_IRWXU S_IRWXG S_IRWXO);
use IPC::Msg;
-
+
$msg = new IPC::Msg(IPC_PRIVATE, S_IRWXU | S_IRWXG | S_IRWXO);
-
+
$msg->snd(pack("L a*",$msgtype,$msg));
-
+
$msg->rcv($buf,256);
-
+
$ds = $msg->stat;
-
+
$msg->remove;
=head1 DESCRIPTION
diff -ur perl-5.5.670/ext/IPC/SysV/Semaphore.pm
perl-5.5.670-devel/ext/IPC/SysV/Semaphore.pm
--- perl-5.5.670/ext/IPC/SysV/Semaphore.pm Sun Jan 23 07:14:30 2000
+++ perl-5.5.670-devel/ext/IPC/SysV/Semaphore.pm Fri Mar 3 10:17:32 2000
@@ -155,19 +155,19 @@
use IPC::SysV qw(IPC_PRIVATE S_IRWXU IPC_CREAT);
use IPC::Semaphore;
-
+
$sem = new IPC::Semaphore(IPC_PRIVATE, 10, S_IRWXU | IPC_CREAT);
-
+
$sem->setall( (0) x 10);
-
+
@sem = $sem->getall;
-
+
$ncnt = $sem->getncnt;
-
+
$zcnt = $sem->getzcnt;
-
+
$ds = $sem->stat;
-
+
$sem->remove;
=head1 DESCRIPTION
diff -ur perl-5.5.670/lib/CGI/Cookie.pm perl-5.5.670-devel/lib/CGI/Cookie.pm
--- perl-5.5.670/lib/CGI/Cookie.pm Sat Jan 22 07:23:57 2000
+++ perl-5.5.670-devel/lib/CGI/Cookie.pm Fri Mar 3 10:17:32 2000
@@ -343,7 +343,7 @@
In a scalar context, fetch() returns a hash reference, which may be more
efficient if you are manipulating multiple cookies.
-
+
CGI.pm uses the URL escaping methods to save and restore reserved characters
in its cookies. If you are trying to retrieve a cookie set by a foreign server,
this escaping method may trip you up. Use raw_fetch() instead, which has the
@@ -414,5 +414,5 @@
=head1 SEE ALSO
L<CGI::Carp>, L<CGI>
-
+
=cut
diff -ur perl-5.5.670/lib/CGI/Fast.pm perl-5.5.670-devel/lib/CGI/Fast.pm
--- perl-5.5.670/lib/CGI/Fast.pm Tue Jul 20 13:17:59 1999
+++ perl-5.5.670-devel/lib/CGI/Fast.pm Fri Mar 3 10:17:32 2000
@@ -170,5 +170,5 @@
=head1 SEE ALSO
L<CGI::Carp>, L<CGI>
-
+
=cut
diff -ur perl-5.5.670/lib/CGI/Push.pm perl-5.5.670-devel/lib/CGI/Push.pm
--- perl-5.5.670/lib/CGI/Push.pm Tue Jul 20 13:17:59 1999
+++ perl-5.5.670-devel/lib/CGI/Push.pm Fri Mar 3 10:17:32 2000
@@ -257,7 +257,7 @@
h1('testing'),
"This page called $counter times";
}
-
+
sub my_last_page {
header(-refresh=>'5; URL=http://somewhere.else/finished.html',
-type=>'text/html'),
diff -ur perl-5.5.670/lib/CGI.pm perl-5.5.670-devel/lib/CGI.pm
--- perl-5.5.670/lib/CGI.pm Sat Jan 22 07:23:57 2000
+++ perl-5.5.670-devel/lib/CGI.pm Fri Mar 3 10:17:32 2000
@@ -3830,7 +3830,7 @@
The file format used for save/restore is identical to that used by the
Whitehead Genome Center's data exchange format "Boulderio", and can be
manipulated and even databased using Boulderio utilities. See
-
+
http://stein.cshl.org/boulder/
for further details.
@@ -4069,7 +4069,7 @@
use CGI qw(-no_debug :standard);
restore_parameters(join('&',@ARGV));
-
+
See the section on debugging for more details.
=item -private_tempfiles
@@ -4616,7 +4616,7 @@
"Open a new frame");
<A HREF="fred.html",TARGET="_new">Open a new frame</A>
-
+
You may dispense with the dashes in front of the attribute names if
you prefer:
@@ -4634,7 +4634,7 @@
attribute argument was the same as providing undef. However, this has
changed in order to accommodate those who want to create tags of the form
<IMG ALT="">. The difference is shown in these two pieces of code:
-
+
CODE RESULT
img({alt=>undef}) <IMG ALT>
img({alt=>''}) <IMT ALT="">
@@ -4768,7 +4768,7 @@
$query = new CGI;
$query->autoEscape(undef);
-
+
=head2 CREATING AN ISINDEX TAG
@@ -4798,7 +4798,7 @@
startform() will return a <FORM> tag with the optional method,
action and form encoding that you specify. The defaults are:
-
+
method: POST
action: this script
enctype: application/x-www-form-urlencoded
@@ -5242,7 +5242,7 @@
print $query->checkbox_group(-name=>'group_name',
-values=>['eenie','meenie','minie','moe'],
-rows=2,-columns=>2);
-
+
checkbox_group() creates a list of checkboxes that are related
by the same name.
@@ -5780,7 +5780,7 @@
=item 2. Specify the destination for the document in the HTTP header
You may provide a B<-target> parameter to the header() method:
-
+
print $q->header(-target=>'ResultsWindow');
This will tell the browser to load the output of your script into the
@@ -5917,7 +5917,7 @@
for debugging purposes:
print $query->dump
-
+
Produces something that looks like:
@@ -6162,7 +6162,7 @@
=over 4
=item multipart_init()
-
+
multipart_init(-boundary=>$boundary);
Initialize the multipart system. The -boundary argument specifies
@@ -6379,9 +6379,9 @@
#!/usr/local/bin/perl
-
+
use CGI;
-
+
$query = new CGI;
print $query->header;
@@ -6391,35 +6391,35 @@
&do_work($query);
&print_tail;
print $query->end_html;
-
+
sub print_prompt {
my($query) = @_;
-
+
print $query->startform;
print "<EM>What's your name?</EM><BR>";
print $query->textfield('name');
print $query->checkbox('Not my real name');
-
+
print "<P><EM>Where can you find English Sparrows?</EM><BR>";
print $query->checkbox_group(
-name=>'Sparrow locations',
-values=>[England,France,Spain,Asia,Hoboken],
-linebreak=>'yes',
-defaults=>[England,Asia]);
-
+
print "<P><EM>How far can they fly?</EM><BR>",
$query->radio_group(
-name=>'how far',
-values=>['10 ft','1 mile','10 miles','real far'],
-default=>'1 mile');
-
+
print "<P><EM>What's your favorite color?</EM> ";
print $query->popup_menu(-name=>'Color',
-values=>['black','brown','red','yellow'],
-default=>'red');
-
+
print $query->hidden('Reference','Monty Python and the Holy Grail');
-
+
print "<P><EM>What have you got there?</EM><BR>";
print $query->scrolling_list(
-name=>'possessions',
@@ -6427,19 +6427,19 @@
'A Sword','A Ticket'],
-size=>5,
-multiple=>'true');
-
+
print "<P><EM>Any parting comments?</EM><BR>";
print $query->textarea(-name=>'Comments',
-rows=>10,
-columns=>50);
-
+
print "<P>",$query->reset;
print $query->submit('Action','Shout');
print $query->submit('Action','Scream');
print $query->endform;
print "<HR>\n";
}
-
+
sub do_work {
my($query) = @_;
my(@values,$key);
@@ -6452,7 +6452,7 @@
print join(", ",@values),"<BR>\n";
}
}
-
+
sub print_tail {
print <<END;
<HR>
diff -ur perl-5.5.670/lib/Carp/Heavy.pm perl-5.5.670-devel/lib/Carp/Heavy.pm
--- perl-5.5.670/lib/Carp/Heavy.pm Sat Jan 22 23:43:33 2000
+++ perl-5.5.670-devel/lib/Carp/Heavy.pm Fri Mar 3 10:17:32 2000
@@ -11,7 +11,7 @@
=head1 DESCRIPTION
No user-serviceable parts inside.
-
+
=cut
# This package is heavily used. Be small. Be fast. Be good.
diff -ur perl-5.5.670/lib/DB.pm perl-5.5.670-devel/lib/DB.pm
--- perl-5.5.670/lib/DB.pm Tue Nov 30 22:56:42 1999
+++ perl-5.5.670-devel/lib/DB.pm Fri Mar 3 10:17:32 2000
@@ -555,9 +555,9 @@
package CLIENT;
use DB;
@ISA = qw(DB);
-
+
# these (inherited) methods can be called by the client
-
+
CLIENT->register() # register a client package name
CLIENT->done() # de-register from the debugging API
CLIENT->skippkg('hide::hide') # ask DB not to stop in this package
@@ -585,7 +585,7 @@
# These methods will be called at the appropriate times.
# Stub versions provided do nothing.
# None of these can block.
-
+
CLIENT->init() # called when debug API inits itself
CLIENT->stop(FILE,LINE) # when execution stops
CLIENT->idle() # while stopped (can be a client event loop)
diff -ur perl-5.5.670/lib/Exporter/Heavy.pm perl-5.5.670-devel/lib/Exporter/Heavy.pm
--- perl-5.5.670/lib/Exporter/Heavy.pm Sat Nov 13 14:03:03 1999
+++ perl-5.5.670-devel/lib/Exporter/Heavy.pm Fri Mar 3 10:17:32 2000
@@ -11,7 +11,7 @@
=head1 DESCRIPTION
No user-serviceable parts inside.
-
+
=cut
#
# We go to a lot of trouble not to 'require Carp' at file scope,
diff -ur perl-5.5.670/lib/File/DosGlob.pm perl-5.5.670-devel/lib/File/DosGlob.pm
--- perl-5.5.670/lib/File/DosGlob.pm Tue Feb 29 03:03:09 2000
+++ perl-5.5.670-devel/lib/File/DosGlob.pm Fri Mar 3 10:17:32 2000
@@ -157,16 +157,16 @@
=head1 SYNOPSIS
require 5.004;
-
+
# override CORE::glob in current package
use File::DosGlob 'glob';
-
+
# override CORE::glob in ALL packages (use with extreme caution!)
use File::DosGlob 'GLOBAL_glob';
@perlfiles = glob "..\\pe?l/*.p?";
print <..\\pe?l/*.p?>;
-
+
# from the command line (overrides only in main::)
> perl -MFile::DosGlob=glob -e "print <../pe*/*p?>"
diff -ur perl-5.5.670/lib/File/Find.pm perl-5.5.670-devel/lib/File/Find.pm
--- perl-5.5.670/lib/File/Find.pm Wed Mar 1 01:28:41 2000
+++ perl-5.5.670-devel/lib/File/Find.pm Fri Mar 3 10:17:32 2000
@@ -18,7 +18,7 @@
use File::Find;
finddepth(\&wanted, '/foo', '/bar');
sub wanted { ... }
-
+
use File::Find;
find({ wanted => \&process, follow => 1 }, '.');
diff -ur perl-5.5.670/lib/Getopt/Long.pm perl-5.5.670-devel/lib/Getopt/Long.pm
--- perl-5.5.670/lib/Getopt/Long.pm Fri Sep 10 06:31:38 1999
+++ perl-5.5.670-devel/lib/Getopt/Long.pm Fri Mar 3 10:17:32 2000
@@ -897,7 +897,7 @@
The command line options are taken from array @ARGV. Upon completion
of GetOptions, @ARGV will contain the rest (i.e. the non-options) of
the command line.
-
+
Each option specifier designates the name of the option, optionally
followed by an argument specifier.
diff -ur perl-5.5.670/lib/Math/Trig.pm perl-5.5.670-devel/lib/Math/Trig.pm
--- perl-5.5.670/lib/Math/Trig.pm Mon Jan 24 05:31:10 2000
+++ perl-5.5.670-devel/lib/Math/Trig.pm Fri Mar 3 10:17:32 2000
@@ -132,11 +132,11 @@
=head1 SYNOPSIS
use Math::Trig;
-
+
$x = tan(0.9);
$y = acos(3.7);
$z = asin(2.4);
-
+
$halfpi = pi/2;
$rad = deg2rad(120);
@@ -258,7 +258,7 @@
details like for example how to display complex numbers. For example:
print asin(2), "\n";
-
+
should produce something like this (take or leave few last decimals):
1.5707963267949-1.31695789692482i
@@ -272,10 +272,10 @@
$radians = deg2rad($degrees);
$radians = grad2rad($gradians);
-
+
$degrees = rad2deg($radians);
$degrees = grad2deg($gradians);
-
+
$gradians = deg2grad($degrees);
$gradians = rad2grad($radians);
diff -ur perl-5.5.670/lib/Net/Ping.pm perl-5.5.670-devel/lib/Net/Ping.pm
--- perl-5.5.670/lib/Net/Ping.pm Sun Jan 23 06:53:01 2000
+++ perl-5.5.670-devel/lib/Net/Ping.pm Fri Mar 3 10:17:32 2000
@@ -422,7 +422,7 @@
sleep(1);
}
$p->close();
-
+
$p = Net::Ping->new("tcp", 2);
while ($stop_time > time())
{
@@ -431,7 +431,7 @@
sleep(300);
}
undef($p);
-
+
# For backward compatibility
print "$host is alive.\n" if pingecho($host);
diff -ur perl-5.5.670/lib/Net/netent.pm perl-5.5.670-devel/lib/Net/netent.pm
--- perl-5.5.670/lib/Net/netent.pm Sun Jan 23 06:54:20 2000
+++ perl-5.5.670-devel/lib/Net/netent.pm Fri Mar 3 10:17:32 2000
@@ -120,26 +120,26 @@
use strict;
use Socket;
use Net::netent;
-
+
@ARGV = ('loopback') unless @ARGV;
-
+
my($n, $net);
-
+
for $net ( @ARGV ) {
-
+
unless ($n = getnetbyname($net)) {
warn "$0: no such net: $net\n";
next;
}
-
+
printf "\n%s is %s%s\n",
$net,
lc($n->name) eq lc($net) ? "" : "*really* ",
$n->name;
-
+
print "\taliases are ", join(", ", @{$n->aliases}), "\n"
if @{$n->aliases};
-
+
# this is stupid; first, why is this not in binary?
# second, why am i going through these convolutions
# to make it looks right
@@ -148,7 +148,7 @@
shift @a while @a && $a[0] == 0;
printf "\taddr is %s [%d.%d.%d.%d]\n", $n->net, @a;
}
-
+
if ($n = getnetbyaddr($n->net)) {
if (lc($n->name) ne lc($net)) {
printf "\tThat addr reverses to net %s!\n", $n->name;
diff -ur perl-5.5.670/lib/SelfLoader.pm perl-5.5.670-devel/lib/SelfLoader.pm
--- perl-5.5.670/lib/SelfLoader.pm Wed Jan 26 16:40:10 2000
+++ perl-5.5.670-devel/lib/SelfLoader.pm Fri Mar 3 10:17:32 2000
@@ -121,9 +121,9 @@
package FOOBAR;
use SelfLoader;
-
+
... (initializing code)
-
+
__DATA__
sub {....
diff -ur perl-5.5.670/lib/Tie/Array.pm perl-5.5.670-devel/lib/Tie/Array.pm
--- perl-5.5.670/lib/Tie/Array.pm Sun Jan 23 06:49:12 2000
+++ perl-5.5.670-devel/lib/Tie/Array.pm Fri Mar 3 10:17:32 2000
@@ -126,17 +126,17 @@
package NewArray;
use Tie::Array;
@ISA = ('Tie::Array');
-
+
# mandatory methods
sub TIEARRAY { ... }
sub FETCH { ... }
sub FETCHSIZE { ... }
-
+
sub STORE { ... } # mandatory if elements writeable
sub STORESIZE { ... } # mandatory if elements can be added/deleted
sub EXISTS { ... } # mandatory if exists() expected to work
sub DELETE { ... } # mandatory if delete() expected to work
-
+
# optional methods - for efficiency
sub CLEAR { ... }
sub PUSH { ... }
@@ -149,7 +149,7 @@
package NewStdArray;
use Tie::Array;
-
+
@ISA = ('Tie::StdArray');
# all methods provided by default
diff -ur perl-5.5.670/lib/Tie/Handle.pm perl-5.5.670-devel/lib/Tie/Handle.pm
--- perl-5.5.670/lib/Tie/Handle.pm Sun Jan 23 06:49:37 2000
+++ perl-5.5.670-devel/lib/Tie/Handle.pm Fri Mar 3 10:17:32 2000
@@ -11,15 +11,15 @@
package NewHandle;
require Tie::Handle;
-
+
@ISA = (Tie::Handle);
-
+
sub READ { ... } # Provide a needed method
sub TIEHANDLE { ... } # Overrides inherited method
-
-
+
+
package main;
-
+
tie *FH, 'NewHandle';
=head1 DESCRIPTION
diff -ur perl-5.5.670/lib/Tie/Scalar.pm perl-5.5.670-devel/lib/Tie/Scalar.pm
--- perl-5.5.670/lib/Tie/Scalar.pm Tue Jul 20 13:18:01 1999
+++ perl-5.5.670-devel/lib/Tie/Scalar.pm Fri Mar 3 10:17:32 2000
@@ -8,24 +8,24 @@
package NewScalar;
require Tie::Scalar;
-
+
@ISA = (Tie::Scalar);
-
+
sub FETCH { ... } # Provide a needed method
sub TIESCALAR { ... } # Overrides inherited method
-
-
+
+
package NewStdScalar;
require Tie::Scalar;
-
+
@ISA = (Tie::StdScalar);
-
+
# All methods provided by default, so define only what needs be overridden
sub FETCH { ... }
-
-
+
+
package main;
-
+
tie $new_scalar, 'NewScalar';
tie $new_std_scalar, 'NewStdScalar';
diff -ur perl-5.5.670/lib/Time/Local.pm perl-5.5.670-devel/lib/Time/Local.pm
--- perl-5.5.670/lib/Time/Local.pm Wed Dec 8 01:23:12 1999
+++ perl-5.5.670-devel/lib/Time/Local.pm Fri Mar 3 10:17:32 2000
@@ -157,7 +157,7 @@
and timegm_nocheck() functions.
use Time::Local 'timelocal_nocheck';
-
+
{
# The 365th day of 1999
print scalar localtime timelocal_nocheck 0,0,0,365,0,99;
diff -ur perl-5.5.670/lib/filetest.pm perl-5.5.670-devel/lib/filetest.pm
--- perl-5.5.670/lib/filetest.pm Fri Aug 20 11:51:33 1999
+++ perl-5.5.670-devel/lib/filetest.pm Fri Mar 3 10:17:32 2000
@@ -5,7 +5,7 @@
filetest - Perl pragma to control the filetest permission operators
=head1 SYNOPSIS
-
+
$can_perhaps_read = -r "file"; # use the mode bits
{
use filetest 'access'; # intuit harder
diff -ur perl-5.5.670/lib/overload.pm perl-5.5.670-devel/lib/overload.pm
--- perl-5.5.670/lib/overload.pm Thu Dec 2 21:49:51 1999
+++ perl-5.5.670-devel/lib/overload.pm Fri Mar 3 10:17:32 2000
@@ -1029,7 +1029,7 @@
my $iter = 1; # 2**($iter+2) = 8
my $side = new symbolic 1;
my $cnt = $iter;
-
+
while ($cnt--) {
$side = (sqrt(1 + $side**2) - 1)/$side;
}
@@ -1154,7 +1154,7 @@
my $iter = new symbolic 2; # 16-gon
my $side = new symbolic 1;
my $cnt = $iter;
-
+
while ($cnt) {
$cnt = $cnt - 1; # Mutator `--' not implemented
$side = (sqrt(1 + $side**2) - 1)/$side;
diff -ur perl-5.5.670/x2p/s2p.PL perl-5.5.670-devel/x2p/s2p.PL
--- perl-5.5.670/x2p/s2p.PL Wed Sep 8 16:33:51 1999
+++ perl-5.5.670-devel/x2p/s2p.PL Fri Mar 3 10:17:32 2000
@@ -51,7 +51,7 @@
=head1 DESCRIPTION
-I<S2p> takes a sed script specified on the command line (or from
+I<s2p> takes a sed script specified on the command line (or from
standard input) and produces a comparable I<perl> script on the
standard output.
@@ -93,7 +93,7 @@
=head1 ENVIRONMENT
-S2p uses no environment variables.
+s2p uses no environment variables.
=head1 AUTHOR
@@ -104,7 +104,7 @@
=head1 SEE ALSO
perl The perl compiler/interpreter
-
+
a2p awk to perl translator
=head1 DIAGNOSTICS
