Looks like the new warning in pod2man flushed out a bunch of
unnecessarily bits of whitespace in the POD...
../perl -I ../lib ../pod/pod2man --section=1 --official perl.pod >
/usr/local/perl5.6/man/man1/perl.tmp
*** WARNING: line containing nothing but whitespace in paragraph at line 237 in file
perl.pod
*** WARNING: line containing nothing but whitespace in paragraph at line 242 in file
perl.pod
etc...
I basically did a s/^\s+$/\n/ over pod/*.pod. Most of the core
modules also have warnings, but that's going to require alot of boring
work to pick through the code and POD.
I know you all hate attachments, but this patch consists almost
entirely of whitespace, so an attachment seems the way to go.
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
The Eternal Life Rings and The Eternal Life Foot Braces invented by Alex Chiu are
believed to allow humans to stay physically young forever or turn humans physically
younger, (Our lawyer told us to use the word "believe")
--Alex Chiu, Immortality Guy
Only in perl-5.5.670-devel/pod/: RCS
diff -ur perl-5.5.670/pod/perl.pod perl-5.5.670-devel/pod/perl.pod
--- perl-5.5.670/pod/perl.pod Tue Feb 29 18:45:13 2000
+++ perl-5.5.670-devel/pod/perl.pod Fri Mar 3 03:08:42 2000
@@ -234,12 +234,12 @@
2) formerly known as MVS
3) formerly known as Digital UNIX and before that DEC OSF/1
4) compilers: Borland, Cygwin, Mingw32 EGCS/GCC, VC++
-
+
The following platforms have been known to build Perl from source,
but we haven't been able to verify their status for the current release,
either because the hardware/software platforms are rare or
because we don't have an active champion on these platforms--or both.
-
+
3b1 FPS Plan 9
AmigaOS GENIX PowerUX
ConvexOS Greenhills RISC/os
diff -ur perl-5.5.670/pod/perlboot.pod perl-5.5.670-devel/pod/perlboot.pod
--- perl-5.5.670/pod/perlboot.pod Tue Feb 29 02:33:15 2000
+++ perl-5.5.670-devel/pod/perlboot.pod Fri Mar 3 03:08:42 2000
@@ -506,7 +506,7 @@
$$self;
}
}
-
+
Now we call for the name:
print $talking->name, " says ", $talking->sound, "\n";
diff -ur perl-5.5.670/pod/perlembed.pod perl-5.5.670-devel/pod/perlembed.pod
--- perl-5.5.670/pod/perlembed.pod Tue Feb 29 17:26:13 2000
+++ perl-5.5.670-devel/pod/perlembed.pod Fri Mar 3 03:08:43 2000
@@ -280,32 +280,32 @@
#include <EXTERN.h>
#include <perl.h>
-
+
static PerlInterpreter *my_perl;
-
+
main (int argc, char **argv, char **env)
{
STRLEN n_a;
char *embedding[] = { "", "-e", "0" };
-
+
my_perl = perl_alloc();
perl_construct( my_perl );
-
+
perl_parse(my_perl, NULL, 3, embedding, NULL);
perl_run(my_perl);
-
+
/** Treat $a as an integer **/
eval_pv("$a = 3; $a **= 2", TRUE);
printf("a = %d\n", SvIV(get_sv("a", FALSE)));
-
+
/** Treat $a as a float **/
eval_pv("$a = 3.14; $a **= 2", TRUE);
printf("a = %f\n", SvNV(get_sv("a", FALSE)));
-
+
/** Treat $a as a string **/
eval_pv("$a = 'rekcaH lreP rehtonA tsuJ'; $a = reverse($a);", TRUE);
printf("a = %s\n", SvPV(get_sv("a", FALSE), n_a));
-
+
perl_destruct(my_perl);
perl_free(my_perl);
}
@@ -364,7 +364,7 @@
#include <EXTERN.h>
#include <perl.h>
-
+
/** my_eval_sv(code, error_check)
** kinda like eval_sv(),
** but we pop the return value off the stack
@@ -374,41 +374,41 @@
dSP;
SV* retval;
STRLEN n_a;
-
+
PUSHMARK(SP);
eval_sv(sv, G_SCALAR);
-
+
SPAGAIN;
retval = POPs;
PUTBACK;
-
+
if (croak_on_error && SvTRUE(ERRSV))
croak(SvPVx(ERRSV, n_a));
-
+
return retval;
}
-
+
/** match(string, pattern)
**
** Used for matches in a scalar context.
**
** Returns 1 if the match was successful; 0 otherwise.
**/
-
+
I32 match(SV *string, char *pattern)
{
SV *command = NEWSV(1099, 0), *retval;
STRLEN n_a;
-
+
sv_setpvf(command, "my $string = '%s'; $string =~ %s",
SvPV(string,n_a), pattern);
-
+
retval = my_eval_sv(command, TRUE);
SvREFCNT_dec(command);
-
+
return SvIV(retval);
}
-
+
/** substitute(string, pattern)
**
** Used for =~ operations that modify their left-hand side (s/// and tr///)
@@ -416,22 +416,22 @@
** Returns the number of successful matches, and
** modifies the input string if there were any.
**/
-
+
I32 substitute(SV **string, char *pattern)
{
SV *command = NEWSV(1099, 0), *retval;
STRLEN n_a;
-
+
sv_setpvf(command, "$string = '%s'; ($string =~ %s)",
SvPV(*string,n_a), pattern);
-
+
retval = my_eval_sv(command, TRUE);
SvREFCNT_dec(command);
-
+
*string = get_sv("string", FALSE);
return SvIV(retval);
}
-
+
/** matches(string, pattern, matches)
**
** Used for matches in an array context.
@@ -439,25 +439,25 @@
** Returns the number of matches,
** and fills in **matches with the matching substrings
**/
-
+
I32 matches(SV *string, char *pattern, AV **match_list)
{
SV *command = NEWSV(1099, 0);
I32 num_matches;
STRLEN n_a;
-
+
sv_setpvf(command, "my $string = '%s'; @array = ($string =~ %s)",
SvPV(string,n_a), pattern);
-
+
my_eval_sv(command, TRUE);
SvREFCNT_dec(command);
-
+
*match_list = get_av("array", FALSE);
num_matches = av_len(*match_list) + 1; /** assume $[ is 0 **/
-
+
return num_matches;
}
-
+
main (int argc, char **argv, char **env)
{
PerlInterpreter *my_perl = perl_alloc();
@@ -466,30 +466,30 @@
I32 num_matches, i;
SV *text = NEWSV(1099,0);
STRLEN n_a;
-
+
perl_construct(my_perl);
perl_parse(my_perl, NULL, 3, embedding, NULL);
-
+
sv_setpv(text, "When he is at a convenience store and the bill comes to some
amount like 76 cents, Maynard is aware that there is something he *should* do,
something that will enable him to get back a quarter, but he has no idea *what*. He
fumbles through his red squeezey changepurse and gives the boy three extra pennies
with his dollar, hoping that he might luck into the correct amount. The boy gives him
back two of his own pennies and then the big shiny quarter that is his prize. -RICHH");
-
+
if (match(text, "m/quarter/")) /** Does text contain 'quarter'? **/
printf("match: Text contains the word 'quarter'.\n\n");
else
printf("match: Text doesn't contain the word 'quarter'.\n\n");
-
+
if (match(text, "m/eighth/")) /** Does text contain 'eighth'? **/
printf("match: Text contains the word 'eighth'.\n\n");
else
printf("match: Text doesn't contain the word 'eighth'.\n\n");
-
+
/** Match all occurrences of /wi../ **/
num_matches = matches(text, "m/(wi..)/g", &match_list);
printf("matches: m/(wi..)/g found %d matches...\n", num_matches);
-
+
for (i = 0; i < num_matches; i++)
printf("match: %s\n", SvPV(*av_fetch(match_list, i, FALSE),n_a));
printf("\n");
-
+
/** Remove all vowels from text **/
num_matches = substitute(&text, "s/[aeiou]//gi");
if (num_matches) {
@@ -497,12 +497,12 @@
num_matches);
printf("Now text is: %s\n\n", SvPV(text,n_a));
}
-
+
/** Attempt a substitution **/
if (!substitute(&text, "s/Perl/C/")) {
printf("substitute: s/Perl/C...No substitution made.\n\n");
}
-
+
SvREFCNT_dec(text);
PL_perl_destruct_level = 1;
perl_destruct(my_perl);
diff -ur perl-5.5.670/pod/perlfaq2.pod perl-5.5.670-devel/pod/perlfaq2.pod
--- perl-5.5.670/pod/perlfaq2.pod Mon Feb 28 05:06:13 2000
+++ perl-5.5.670-devel/pod/perlfaq2.pod Fri Mar 3 03:08:43 2000
@@ -262,7 +262,7 @@
by Ellen Siever, Stephan Spainhour, and Nathan Patwardhan
=item Tutorials
-
+
*Learning Perl [2nd edition]
by Randal L. Schwartz and Tom Christiansen
with foreword by Larry Wall
diff -ur perl-5.5.670/pod/perlfaq4.pod perl-5.5.670-devel/pod/perlfaq4.pod
--- perl-5.5.670/pod/perlfaq4.pod Mon Feb 28 05:06:13 2000
+++ perl-5.5.670-devel/pod/perlfaq4.pod Fri Mar 3 03:08:43 2000
@@ -465,7 +465,7 @@
# $_ contains the string to parse
# BEGIN and END are the opening and closing markers for the
# nested text.
-
+
@( = ('(','');
@) = (')','');
($re=$_)=~s/((BEGIN)|(END)|.)/$)[!$3]\Q$1\E$([!$2]/gs;
diff -ur perl-5.5.670/pod/perlfaq8.pod perl-5.5.670-devel/pod/perlfaq8.pod
--- perl-5.5.670/pod/perlfaq8.pod Mon Feb 28 05:06:13 2000
+++ perl-5.5.670-devel/pod/perlfaq8.pod Fri Mar 3 03:08:43 2000
@@ -976,7 +976,7 @@
sysopen(FH, "/tmp/somefile", O_WRONLY|O_NDELAY|O_CREAT, 0644)
or die "can't open /tmp/somefile: $!":
-
+
=head2 How do I install a module from CPAN?
diff -ur perl-5.5.670/pod/perlfilter.pod perl-5.5.670-devel/pod/perlfilter.pod
--- perl-5.5.670/pod/perlfilter.pod Mon Jan 31 09:31:30 2000
+++ perl-5.5.670-devel/pod/perlfilter.pod Fri Mar 3 03:08:43 2000
@@ -1,7 +1,7 @@
=head1 NAME
perlfilter - Source Filters
-
+
=head1 DESCRIPTION
@@ -198,7 +198,7 @@
C<decrypt> filter (which unscrambles the source before Perl parses it)
included with the source filter distribution is an example of a C
source filter (see Decryption Filters, below).
-
+
=over 5
diff -ur perl-5.5.670/pod/perlguts.pod perl-5.5.670-devel/pod/perlguts.pod
--- perl-5.5.670/pod/perlguts.pod Tue Feb 29 22:36:53 2000
+++ perl-5.5.670-devel/pod/perlguts.pod Fri Mar 3 03:08:43 2000
@@ -385,10 +385,10 @@
HE* hv_fetch_ent (HV* tb, SV* key, I32 lval, U32 hash);
HE* hv_store_ent (HV* tb, SV* key, SV* val, U32 hash);
-
+
bool hv_exists_ent (HV* tb, SV* key, U32 hash);
SV* hv_delete_ent (HV* tb, SV* key, I32 flags, U32 hash);
-
+
SV* hv_iterkeysv (HE* entry);
Note that these functions take C<SV*> keys, which simplifies writing
diff -ur perl-5.5.670/pod/perllexwarn.pod perl-5.5.670-devel/pod/perllexwarn.pod
--- perl-5.5.670/pod/perllexwarn.pod Sun Feb 20 17:35:17 2000
+++ perl-5.5.670-devel/pod/perllexwarn.pod Fri Mar 3 03:08:43 2000
@@ -18,10 +18,10 @@
doesn't attempt to control the warnings will work unchanged.
All warnings are enabled in a block by either of these:
-
+
use warnings ;
use warnings 'all' ;
-
+
Similarly all warnings are disabled in a block by either of these:
no warnings ;
@@ -138,7 +138,7 @@
details of how this flag interacts with lexical warnings.
=item B<-W>
-
+
If the B<-W> flag is used on the command line, it will enable all warnings
throughout the program regardless of whether warnings were disabled
locally using C<no warnings> or C<$^W =0>. This includes all files that get
@@ -177,19 +177,19 @@
to control warning behavior will still work as is.
=item 3.
-
+
Apart from now being a boolean, the C<$^W> variable operates in exactly
the same horrible uncontrolled global way, except that it cannot
disable/enable default warnings.
=item 4.
-
+
If a piece of code is under the control of the C<warnings> pragma,
both the C<$^W> variable and the B<-w> flag will be ignored for the
scope of the lexical warning.
=item 5.
-
+
The only way to override a lexical warnings setting is with the B<-W>
or B<-X> command line flags.
@@ -200,7 +200,7 @@
code (using a C<local $^W=0>) if it really wants to, but not vice-versa.
=head2 Category Hierarchy
-
+
A hierarchy of "categories" have been defined to allow groups of warnings
to be enabled/disabled in isolation.
@@ -318,7 +318,7 @@
L<perldiag>.
=head2 Fatal Warnings
-
+
The presence of the word "FATAL" in the category list will escalate any
warnings detected from the categories specified in the lexical scope
into fatal errors. In the code below, there are 3 places where a
@@ -327,14 +327,14 @@
use warnings ;
-
+
$a = 1 if $a EQ $b ;
-
+
{
use warnings FATAL => qw(deprecated) ;
$a = 1 if $a EQ $b ;
}
-
+
$a = 1 if $a EQ $b ;
=head2 Reporting Warnings from a Module
@@ -383,7 +383,7 @@
warning message.
=head1 TODO
-
+
perl5db.pl
The debugger saves and restores C<$^W> at runtime. I haven't checked
whether the debugger will still work with the lexical warnings
@@ -398,7 +398,7 @@
=head1 SEE ALSO
L<warnings>, L<perldiag>.
-
+
=head1 AUTHOR
-
+
Paul Marquess
diff -ur perl-5.5.670/pod/perllocale.pod perl-5.5.670-devel/pod/perllocale.pod
--- perl-5.5.670/pod/perllocale.pod Sun Jan 23 08:07:24 2000
+++ perl-5.5.670-devel/pod/perllocale.pod Fri Mar 3 03:08:43 2000
@@ -309,7 +309,7 @@
locale "En_US"--and in Cshish shells (B<csh>, B<tcsh>)
setenv LC_ALL en_US.ISO8859-1
-
+
If you do not know what shell you have, consult your local
helpdesk or the equivalent.
diff -ur perl-5.5.670/pod/perlmodinstall.pod perl-5.5.670-devel/pod/perlmodinstall.pod
--- perl-5.5.670/pod/perlmodinstall.pod Mon Feb 28 05:06:13 2000
+++ perl-5.5.670-devel/pod/perlmodinstall.pod Fri Mar 3 03:08:43 2000
@@ -285,7 +285,7 @@
While still in that directory, type:
make install
-
+
You will need the packages mentioned in F<README.dos> in the Perl distribution.
=item *
diff -ur perl-5.5.670/pod/perlpod.pod perl-5.5.670-devel/pod/perlpod.pod
--- perl-5.5.670/pod/perlpod.pod Tue Feb 22 14:50:25 2000
+++ perl-5.5.670-devel/pod/perlpod.pod Fri Mar 3 03:08:43 2000
@@ -173,7 +173,7 @@
L<text|name/"sec">
L<text|"sec">
L<text|/"sec">
-
+
F<file> Used for filenames
X<index> An index entry
Z<> A zero-width character
diff -ur perl-5.5.670/pod/perlre.pod perl-5.5.670-devel/pod/perlre.pod
--- perl-5.5.670/pod/perlre.pod Wed Jan 26 23:38:58 2000
+++ perl-5.5.670-devel/pod/perlre.pod Fri Mar 3 03:08:43 2000
@@ -312,7 +312,7 @@
of your string, see the previous reference. The actual location
where C<\G> will match can also be influenced by using C<pos()> as
an lvalue. See L<perlfunc/pos>.
-
+
The bracketing construct C<( ... )> creates capture buffers. To
refer to the digit'th buffer use \E<lt>digitE<gt> within the
match. Outside the match use "$" instead of "\". (The
@@ -337,13 +337,13 @@
if (/(.)\1/) { # find first doubled char
print "'$1' is the first doubled character\n";
}
-
+
if (/Time: (..):(..):(..)/) { # parse out values
$hours = $1;
$minutes = $2;
$seconds = $3;
}
-
+
Several special variables also refer back to portions of the previous
match. C<$+> returns whatever the last bracket match matched.
C<$&> returns the entire matched string. (At one point C<$0> did
diff -ur perl-5.5.670/pod/perltie.pod perl-5.5.670-devel/pod/perltie.pod
--- perl-5.5.670/pod/perltie.pod Sun Jan 23 08:07:25 2000
+++ perl-5.5.670-devel/pod/perltie.pod Fri Mar 3 03:08:43 2000
@@ -184,7 +184,7 @@
FETCHSIZE and STORESIZE are used to provide C<$#array> and
equivalent C<scalar(@array)> access.
-
+
The methods POP, PUSH, SHIFT, UNSHIFT, SPLICE, DELETE, and EXISTS are
required if the perl operator with the corresponding (but lowercase) name
is to operate on the tied array. The B<Tie::Array> class can be used as a
diff -ur perl-5.5.670/pod/perltodo.pod perl-5.5.670-devel/pod/perltodo.pod
--- perl-5.5.670/pod/perltodo.pod Sun Feb 27 11:45:20 2000
+++ perl-5.5.670-devel/pod/perltodo.pod Fri Mar 3 03:08:43 2000
@@ -165,7 +165,7 @@
extra information for objects so we track their lifetime accurately
for those that want their DESTROY() to be predictable (this will be
a speed hit, naturally, and will therefore be optional, naturally. :)
-
+
[N.B. Don't even ask me about this now! When I have the time to
write a cogent summary, I'll post it.]
@@ -321,14 +321,14 @@
No documentation for perl function `random stuff' found
The following entry in perlfunc.pod matches /random/a:
=item rand EXPR
-
+
=item rand
-
+
Returns a random fractional number greater than or equal to C<0> and less
than the value of EXPR. (EXPR should be positive.) If EXPR is
omitted, the value C<1> is used. Automatically calls C<srand()> unless
C<srand()> has already been called. See also C<srand()>.
-
+
(Note: If your rand function consistently returns numbers that are too
large or too small, then your version of Perl was probably compiled
with the wrong number of RANDBITS.)
diff -ur perl-5.5.670/pod/perltrap.pod perl-5.5.670-devel/pod/perltrap.pod
--- perl-5.5.670/pod/perltrap.pod Sun Jan 23 08:07:25 2000
+++ perl-5.5.670-devel/pod/perltrap.pod Fri Mar 3 03:08:43 2000
@@ -424,7 +424,7 @@
$a=1;$b=2;$c=3;$var=4;
print "$a::$b::$c ";
print "$var::abc::xyz\n";
-
+
# perl4 prints: 1::2::3 4::abc::xyz
# perl5 prints: 3
diff -ur perl-5.5.670/pod/perlxstut.pod perl-5.5.670-devel/pod/perlxstut.pod
--- perl-5.5.670/pod/perlxstut.pod Sun Jan 23 08:07:25 2000
+++ perl-5.5.670-devel/pod/perlxstut.pod Fri Mar 3 03:08:43 2000
@@ -201,11 +201,11 @@
that looks like this:
#! /opt/perl5/bin/perl
-
+
use ExtUtils::testlib;
-
+
use Mytest;
-
+
Mytest::hello();
Now we make the script executable (C<chmod -x hello>), run the script
@@ -504,7 +504,7 @@
#include <stdlib.h>
#include "./mylib.h"
-
+
double
foo(int a, long b, const char *c)
{
