This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Pod whitespace cleanup, round 0.
authorcoral@eekeek.org <coral@eekeek.org>
Fri, 28 Dec 2001 19:58:22 +0000 (14:58 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 29 Dec 2001 15:35:00 +0000 (15:35 +0000)
Message-Id: <200112290058.fBT0wMD26750@eekeek.org>

p4raw-id: //depot/perl@13930

12 files changed:
pod/perl561delta.pod
pod/perl572delta.pod
pod/perlapi.pod
pod/perldelta.pod
pod/perlfaq4.pod
pod/perlfaq6.pod
pod/perlfaq7.pod
pod/perlfunc.pod
pod/perlpacktut.pod
pod/perlunicode.pod
pod/perlxs.pod
util.c

index 9ac8545..e6c166c 100644 (file)
@@ -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
index 1e7251e..c080ee8 100644 (file)
@@ -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
index 6f8ccc1..af2794b 100644 (file)
@@ -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);
 
index 9ac2964..a074ead 100644 (file)
@@ -2493,9 +2493,9 @@ There are a few known test failures, see L<perluts>.
 =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:
index d145eb6..e816fb3 100644 (file)
@@ -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");
index fe53ea8..91323fa 100644 (file)
@@ -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);
   }
 
index e0b2e8e..7aec723 100644 (file)
@@ -170,7 +170,7 @@ you should study L<perlxstut>.
 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.
index 39a6ea4..93383d3 100644 (file)
@@ -2752,7 +2752,7 @@ and opening C<< '>-' >> opens STDOUT.
 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,
index 423ab03..2c5f1ec 100644 (file)
@@ -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 );
 
index db5a475..22fddb8 100644 (file)
@@ -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
 
index 0398641..c9f7cc8 100644 (file)
@@ -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 (file)
--- 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);