Change 13930 by jhi@alpha on 2001/12/29 15:35:00
Subject: [PATCH] Pod whitespace cleanup, round 0.
From: [EMAIL PROTECTED]
Date: Fri, 28 Dec 2001 19:58:22 -0500
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
..... //depot/perl/pod/perl561delta.pod#3 edit
..... //depot/perl/pod/perl572delta.pod#31 edit
..... //depot/perl/pod/perlapi.pod#120 edit
..... //depot/perl/pod/perldelta.pod#278 edit
..... //depot/perl/pod/perlfaq4.pod#60 edit
..... //depot/perl/pod/perlfaq6.pod#30 edit
..... //depot/perl/pod/perlfaq7.pod#29 edit
..... //depot/perl/pod/perlfunc.pod#290 edit
..... //depot/perl/pod/perlpacktut.pod#6 edit
..... //depot/perl/pod/perlunicode.pod#68 edit
..... //depot/perl/pod/perlxs.pod#36 edit
..... //depot/perl/util.c#311 edit
Differences ...
==== //depot/perl/pod/perl561delta.pod#3 (text) ====
Index: perl/pod/perl561delta.pod
--- perl/pod/perl561delta.pod.~1~ Sat Dec 29 08:45:06 2001
+++ perl/pod/perl561delta.pod Sat Dec 29 08:45:06 2001
@@ -601,7 +601,7 @@
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
==== //depot/perl/pod/perl572delta.pod#31 (text) ====
Index: perl/pod/perl572delta.pod
--- perl/pod/perl572delta.pod.~1~ Sat Dec 29 08:45:06 2001
+++ perl/pod/perl572delta.pod Sat Dec 29 08:45:06 2001
@@ -706,7 +706,7 @@
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
==== //depot/perl/pod/perlapi.pod#120 (text+w) ====
Index: perl/pod/perlapi.pod
--- perl/pod/perlapi.pod.~1~ Sat Dec 29 08:45:06 2001
+++ perl/pod/perlapi.pod Sat Dec 29 08:45:06 2001
@@ -1593,9 +1593,9 @@
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);
==== //depot/perl/pod/perldelta.pod#278 (text) ====
Index: perl/pod/perldelta.pod
--- perl/pod/perldelta.pod.~1~ Sat Dec 29 08:45:06 2001
+++ perl/pod/perldelta.pod Sat Dec 29 08:45:06 2001
@@ -2493,9 +2493,9 @@
=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:
==== //depot/perl/pod/perlfaq4.pod#60 (text) ====
Index: perl/pod/perlfaq4.pod
--- perl/pod/perlfaq4.pod.~1~ Sat Dec 29 08:45:06 2001
+++ perl/pod/perlfaq4.pod Sat Dec 29 08:45:06 2001
@@ -142,7 +142,7 @@
$int = 0xDEADBEEF;
$dec = sprintf("%d", $int);
-
+
Using the hex function:
$int = hex("DEADBEEF");
==== //depot/perl/pod/perlfaq6.pod#30 (text) ====
Index: perl/pod/perlfaq6.pod
--- perl/pod/perlfaq6.pod.~1~ Sat Dec 29 08:45:06 2001
+++ perl/pod/perlfaq6.pod Sat Dec 29 08:45:06 2001
@@ -218,10 +218,10 @@
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);
}
==== //depot/perl/pod/perlfaq7.pod#29 (text) ====
Index: perl/pod/perlfaq7.pod
--- perl/pod/perlfaq7.pod.~1~ Sat Dec 29 08:45:06 2001
+++ perl/pod/perlfaq7.pod Sat Dec 29 08:45:06 2001
@@ -170,7 +170,7 @@
The C<h2xs> program will create stubs for all the important stuff for you:
% h2xs -XA -n My::Module
-
+
The C<-X> switch tells C<h2xs> that you are not using C<XS> extension
code. The C<-A> switch tells C<h2xs> that you are not using the
AutoLoader, and the C<-n> switch specifies the name of the module.
==== //depot/perl/pod/perlfunc.pod#290 (text) ====
Index: perl/pod/perlfunc.pod
--- perl/pod/perlfunc.pod.~1~ Sat Dec 29 08:45:06 2001
+++ perl/pod/perlfunc.pod Sat Dec 29 08:45:06 2001
@@ -2752,7 +2752,7 @@
You may use the three-argument form of open to specify
I<I/O disciplines> that affect how the input and output
are processed: see L</binmode> and L<open>. For example
-
+
open(FH, "<:utf8", "file")
will open the UTF-8 encoded file containing Unicode characters,
==== //depot/perl/pod/perlpacktut.pod#6 (text) ====
Index: perl/pod/perlpacktut.pod
--- perl/pod/perlpacktut.pod.~1~ Sat Dec 29 08:45:06 2001
+++ perl/pod/perlpacktut.pod Sat Dec 29 08:45:06 2001
@@ -109,7 +109,7 @@
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 @@
# 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 );
==== //depot/perl/pod/perlunicode.pod#68 (text) ====
Index: perl/pod/perlunicode.pod
--- perl/pod/perlunicode.pod.~1~ Sat Dec 29 08:45:06 2001
+++ perl/pod/perlunicode.pod Sat Dec 29 08:45:06 2001
@@ -644,7 +644,7 @@
[ 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
==== //depot/perl/pod/perlxs.pod#36 (text) ====
Index: perl/pod/perlxs.pod
--- perl/pod/perlxs.pod.~1~ Sat Dec 29 08:45:06 2001
+++ perl/pod/perlxs.pod Sat Dec 29 08:45:06 2001
@@ -1722,20 +1722,20 @@
#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;
==== //depot/perl/util.c#311 (text) ====
Index: perl/util.c
--- perl/util.c.~1~ Sat Dec 29 08:45:06 2001
+++ perl/util.c Sat Dec 29 08:45:06 2001
@@ -3919,9 +3919,9 @@
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);
End of Patch.
