From: coral@eekeek.org Date: Fri, 28 Dec 2001 19:58:22 +0000 (-0500) Subject: Pod whitespace cleanup, round 0. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7207e29d564e32c8ec2cb43eabae72ff68c02442;p=p5sagit%2Fp5-mst-13.2.git Pod whitespace cleanup, round 0. Message-Id: <200112290058.fBT0wMD26750@eekeek.org> p4raw-id: //depot/perl@13930 --- diff --git a/pod/perl561delta.pod b/pod/perl561delta.pod index 9ac8545..e6c166c 100644 --- a/pod/perl561delta.pod +++ b/pod/perl561delta.pod @@ -601,7 +601,7 @@ send() works from within a pseudo-process. Unless specifically qualified otherwise, the remainder of this document covers changes between the 5.005 and 5.6.0 releases. - + =head1 Core Enhancements =head2 Interpreter cloning, threads, and concurrency diff --git a/pod/perl572delta.pod b/pod/perl572delta.pod index 1e7251e..c080ee8 100644 --- a/pod/perl572delta.pod +++ b/pod/perl572delta.pod @@ -706,7 +706,7 @@ many more tests than there used to be. Here are the known failures from some compiler/platform combinations. DEC C V5.3-006 on OpenVMS VAX V6.2 - + [-.ext.list.util.t]tainted..............FAILED on test 3 [-.ext.posix]sigaction..................FAILED on test 7 [-.ext.time.hires]hires.................FAILED on test 14 diff --git a/pod/perlapi.pod b/pod/perlapi.pod index 6f8ccc1..af2794b 100644 --- a/pod/perlapi.pod +++ b/pod/perlapi.pod @@ -1593,9 +1593,9 @@ Found in file handy.h Returns a pointer to the next character after the parsed vstring, as well as updating the passed in sv. - * + Function must be called like - + sv = NEWSV(92,5); s = new_vstring(s,sv); diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 9ac2964..a074ead 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -2493,9 +2493,9 @@ There are a few known test failures, see L. =head2 VMS There is one known test failure with a default configuration: - + [.run]switches..........................FAILED on test 1 - + =head2 Win32 In multi-CPU boxes there are some problems with the I/O buffering: diff --git a/pod/perlfaq4.pod b/pod/perlfaq4.pod index d145eb6..e816fb3 100644 --- a/pod/perlfaq4.pod +++ b/pod/perlfaq4.pod @@ -142,7 +142,7 @@ Using perl's built in conversion of 0x notation: $int = 0xDEADBEEF; $dec = sprintf("%d", $int); - + Using the hex function: $int = hex("DEADBEEF"); diff --git a/pod/perlfaq6.pod b/pod/perlfaq6.pod index fe53ea8..91323fa 100644 --- a/pod/perlfaq6.pod +++ b/pod/perlfaq6.pod @@ -218,10 +218,10 @@ longer than the original, you can use this code, by Jeff Pinyan: sub preserve_case { my ($from, $to) = @_; my ($lf, $lt) = map length, @_; - + if ($lt < $lf) { $from = substr $from, 0, $lt } else { $from .= substr $to, $lf } - + return uc $to | ($from ^ uc $from); } diff --git a/pod/perlfaq7.pod b/pod/perlfaq7.pod index e0b2e8e..7aec723 100644 --- a/pod/perlfaq7.pod +++ b/pod/perlfaq7.pod @@ -170,7 +170,7 @@ you should study L. The C program will create stubs for all the important stuff for you: % h2xs -XA -n My::Module - + The C<-X> switch tells C that you are not using C extension code. The C<-A> switch tells C that you are not using the AutoLoader, and the C<-n> switch specifies the name of the module. diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod index 39a6ea4..93383d3 100644 --- a/pod/perlfunc.pod +++ b/pod/perlfunc.pod @@ -2752,7 +2752,7 @@ and opening C<< '>-' >> opens STDOUT. You may use the three-argument form of open to specify I that affect how the input and output are processed: see L and L. For example - + open(FH, "<:utf8", "file") will open the UTF-8 encoded file containing Unicode characters, diff --git a/pod/perlpacktut.pod b/pod/perlpacktut.pod index 423ab03..2c5f1ec 100644 --- a/pod/perlpacktut.pod +++ b/pod/perlpacktut.pod @@ -109,7 +109,7 @@ numbers - which we've had to count by hand. So it's error-prone as well as horribly unfriendly. Or maybe we could use regular expressions: - + while (<>) { my($date, $desc, $income, $expend) = m|(\d\d/\d\d/\d{4}) (.{27}) (.{7})(.*)|; @@ -661,7 +661,7 @@ cannot be unpacked naively: # pack a message my $msg = pack( 'Z*Z*CA*C', $src, $dst, length( $sm ), $sm, $prio ); - + # unpack fails - $prio remains undefined! ( $src, $dst, $len, $sm, $prio ) = unpack( 'Z*Z*CA*C', $msg ); diff --git a/pod/perlunicode.pod b/pod/perlunicode.pod index db5a475..22fddb8 100644 --- a/pod/perlunicode.pod +++ b/pod/perlunicode.pod @@ -644,7 +644,7 @@ Level 1 - Basic Unicode Support [ 9] see UTR#13 Unicode Newline Guidelines [10] should do ^ and $ also on \x{85}, \x{2028} and \x{2029}) (should also affect <>, $., and script line numbers) - + (*) You can mimic class subtraction using lookahead. For example, what TR18 might write as diff --git a/pod/perlxs.pod b/pod/perlxs.pod index 0398641..c9f7cc8 100644 --- a/pod/perlxs.pod +++ b/pod/perlxs.pod @@ -1722,20 +1722,20 @@ Below is an example module that makes use of the macros. #include "EXTERN.h" #include "perl.h" #include "XSUB.h" - + /* Global Data */ - + #define MY_CXT_KEY "BlindMice::_guts" XS_VERSION - + typedef struct { int count; char name[3][100]; } my_cxt_t; - + START_MY_CXT - + MODULE = BlindMice PACKAGE = BlindMice - + BOOT: { MY_CXT_INIT; diff --git a/util.c b/util.c index 9607d46..3012de7 100644 --- a/util.c +++ b/util.c @@ -3919,9 +3919,9 @@ Perl_getcwd_sv(pTHX_ register SV *sv) Returns a pointer to the next character after the parsed vstring, as well as updating the passed in sv. - * + Function must be called like - + sv = NEWSV(92,5); s = new_vstring(s,sv);