develooper Front page | perl.perl5.porters | Postings from March 2001

[PATCH] more pod patches

Thread Next
From:
Michael Stevens
Date:
March 15, 2001 13:25
Subject:
[PATCH] more pod patches
Message ID:
20010315212518.A18870@firedrake.org
Yet more pod linting, this time on .pm files. I've touched things
without fear or favour mostly - I think probably a few of these changes
affect things that are also maintained outside the core.


diff -urN perl-current.orig/configpm perl-current/configpm
--- perl-current.orig/configpm	Thu Mar 15 20:33:42 2001
+++ perl-current/configpm	Thu Mar 15 21:10:59 2001
@@ -418,7 +418,7 @@
     print CONFIG <<EOF;
 =head2 $c
 
-=over
+=over 4
 
 EOF
     $text = 1;
diff -urN perl-current.orig/ext/B/B/Bytecode.pm perl-current/ext/B/B/Bytecode.pm
--- perl-current.orig/ext/B/B/Bytecode.pm	Thu Mar 15 20:33:17 2001
+++ perl-current/ext/B/B/Bytecode.pm	Thu Mar 15 20:36:28 2001
@@ -967,9 +967,9 @@
 through the assembler and outputting bytecode.
 
 =item B<-upackage>
-  
+
 Stores package in the output.
-  
+
 =back
 
 =head1 EXAMPLES
diff -urN perl-current.orig/ext/DB_File/DB_File.pm perl-current/ext/DB_File/DB_File.pm
--- perl-current.orig/ext/DB_File/DB_File.pm	Thu Mar 15 20:33:18 2001
+++ perl-current/ext/DB_File/DB_File.pm	Thu Mar 15 20:40:31 2001
@@ -388,8 +388,8 @@
 
 =head1 SYNOPSIS
 
- use DB_File ;
- 
+ use DB_File;
+
  [$X =] tie %hash,  'DB_File', [$filename, $flags, $mode, $DB_HASH] ;
  [$X =] tie %hash,  'DB_File', $filename, $flags, $mode, $DB_BTREE ;
  [$X =] tie @array, 'DB_File', $filename, $flags, $mode, $DB_RECNO ;
@@ -699,7 +699,7 @@
 here is the output:
 
     Banana Exists
- 
+
     orange -> orange
     tomato -> red
     banana -> yellow
@@ -797,13 +797,13 @@
 
     $filename = "tree" ;
     unlink $filename ;
- 
+
     # Enable duplicate records
     $DB_BTREE->{'flags'} = R_DUP ;
- 
+
     tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE 
 	or die "Cannot open $filename: $!\n";
- 
+
     # Add some key/value pairs to the file
     $h{'Wall'} = 'Larry' ;
     $h{'Wall'} = 'Brick' ; # Note the duplicate key
@@ -847,25 +847,25 @@
     use warnings ;
     use strict ;
     use DB_File ;
- 
+
     use vars qw($filename $x %h $status $key $value) ;
 
     $filename = "tree" ;
     unlink $filename ;
- 
+
     # Enable duplicate records
     $DB_BTREE->{'flags'} = R_DUP ;
- 
+
     $x = tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE 
 	or die "Cannot open $filename: $!\n";
- 
+
     # Add some key/value pairs to the file
     $h{'Wall'} = 'Larry' ;
     $h{'Wall'} = 'Brick' ; # Note the duplicate key
     $h{'Wall'} = 'Brick' ; # Note the duplicate key and value
     $h{'Smith'} = 'John' ;
     $h{'mouse'} = 'mickey' ;
- 
+
     # iterate through the btree using seq
     # and print each key/value pair.
     $key = $value = 0 ;
@@ -873,7 +873,7 @@
          $status == 0 ;
          $status = $x->seq($key, $value, R_NEXT) )
       {  print "$key -> $value\n" }
- 
+
     undef $x ;
     untie %h ;
 
@@ -919,14 +919,14 @@
     use warnings ;
     use strict ;
     use DB_File ;
- 
+
     use vars qw($filename $x %h ) ;
 
     $filename = "tree" ;
- 
+
     # Enable duplicate records
     $DB_BTREE->{'flags'} = R_DUP ;
- 
+
     $x = tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE 
 	or die "Cannot open $filename: $!\n";
 
@@ -942,7 +942,7 @@
 
     @list = $x->get_dup("Smith") ;
     print "Smith =>	[@list]\n" ;
- 
+
     @list = $x->get_dup("Dog") ;
     print "Dog =>	[@list]\n" ;
 
@@ -969,23 +969,23 @@
     use warnings ;
     use strict ;
     use DB_File ;
- 
+
     use vars qw($filename $x %h $found) ;
 
     my $filename = "tree" ;
- 
+
     # Enable duplicate records
     $DB_BTREE->{'flags'} = R_DUP ;
- 
+
     $x = tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE 
 	or die "Cannot open $filename: $!\n";
 
     $found = ( $x->find_dup("Wall", "Larry") == 0 ? "" : "not") ; 
     print "Larry Wall is $found there\n" ;
-    
+
     $found = ( $x->find_dup("Wall", "Harry") == 0 ? "" : "not") ; 
     print "Harry Wall is $found there\n" ;
-    
+
     undef $x ;
     untie %h ;
 
@@ -1008,14 +1008,14 @@
     use warnings ;
     use strict ;
     use DB_File ;
- 
+
     use vars qw($filename $x %h $found) ;
 
     my $filename = "tree" ;
- 
+
     # Enable duplicate records
     $DB_BTREE->{'flags'} = R_DUP ;
- 
+
     $x = tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE 
 	or die "Cannot open $filename: $!\n";
 
@@ -1023,7 +1023,7 @@
 
     $found = ( $x->find_dup("Wall", "Larry") == 0 ? "" : "not") ; 
     print "Larry Wall is $found there\n" ;
-    
+
     undef $x ;
     untie %h ;
 
@@ -1071,22 +1071,22 @@
 
     $x = tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE
         or die "Cannot open $filename: $!\n";
- 
+
     # Add some key/value pairs to the file
     $h{'mouse'} = 'mickey' ;
     $h{'Wall'} = 'Larry' ;
     $h{'Walls'} = 'Brick' ; 
     $h{'Smith'} = 'John' ;
- 
+
 
     $key = $value = 0 ;
     print "IN ORDER\n" ;
     for ($st = $x->seq($key, $value, R_FIRST) ;
 	 $st == 0 ;
          $st = $x->seq($key, $value, R_NEXT) )
-	
+
       {  print "$key	-> $value\n" }
- 
+
     print "\nPARTIAL MATCH\n" ;
 
     match "Wa" ;
@@ -1250,14 +1250,14 @@
     use vars qw(@h $H $file $i) ;
     use DB_File ;
     use Fcntl ;
-    
+
     $file = "text" ;
 
     unlink $file ;
 
     $H = tie @h, "DB_File", $file, O_RDWR|O_CREAT, 0640, $DB_RECNO 
         or die "Cannot open file $file: $!\n" ;
-    
+
     # first create a text file to play with
     $h[0] = "zero" ;
     $h[1] = "one" ;
@@ -1265,7 +1265,7 @@
     $h[3] = "three" ;
     $h[4] = "four" ;
 
-    
+
     # Print the records in order.
     #
     # The length method is needed here because evaluating a tied
diff -urN perl-current.orig/ext/Data/Dumper/Dumper.pm perl-current/ext/Data/Dumper/Dumper.pm
--- perl-current.orig/ext/Data/Dumper/Dumper.pm	Thu Mar 15 20:33:18 2001
+++ perl-current/ext/Data/Dumper/Dumper.pm	Thu Mar 15 20:41:41 2001
@@ -592,7 +592,6 @@
 
 Data::Dumper - stringified perl data structures, suitable for both printing and C<eval>
 
-
 =head1 SYNOPSIS
 
     use Data::Dumper;
diff -urN perl-current.orig/ext/Devel/Peek/Peek.pm perl-current/ext/Devel/Peek/Peek.pm
--- perl-current.orig/ext/Devel/Peek/Peek.pm	Thu Mar 15 20:33:18 2001
+++ perl-current/ext/Devel/Peek/Peek.pm	Thu Mar 15 20:42:19 2001
@@ -432,7 +432,7 @@
 
 This shows that 
 
-=over
+=over 4
 
 =item *
 
diff -urN perl-current.orig/ext/Filter/Util/Call/Call.pm perl-current/ext/Filter/Util/Call/Call.pm
--- perl-current.orig/ext/Filter/Util/Call/Call.pm	Thu Mar 15 20:33:19 2001
+++ perl-current/ext/Filter/Util/Call/Call.pm	Thu Mar 15 20:45:17 2001
@@ -58,7 +58,7 @@
 Filter::Util::Call - Perl Source Filter Utility Module
 
 =head1 SYNOPSIS
- 
+
     use Filter::Util::Call ;
 
 =head1 DESCRIPTION
@@ -74,7 +74,7 @@
 Here is a skeleton for the I<method filter>:
 
     package MyFilter ;
-    
+
     use Filter::Util::Call ;
 
     sub import
@@ -82,28 +82,28 @@
         my($type, @arguments) = @_ ;
         filter_add([]) ;
     }
-    
+
     sub filter
     {
         my($self) = @_ ;
         my($status) ;
-    
+
         $status = filter_read() ;
         $status ;
     }
-    
+
     1 ;
 
 and this is the equivalent skeleton for the I<closure filter>:
 
     package MyFilter ;
-    
+
     use Filter::Util::Call ;
 
     sub import
     {
         my($type, @arguments) = @_ ;
-    
+
         filter_add(
             sub 
             {
@@ -112,7 +112,7 @@
                 $status ;
             } )
     }
-    
+
     1 ;
 
 To make use of either of the two filter modules above, place the line
@@ -293,26 +293,26 @@
 Useful, but it is the first example and I wanted to keep it simple.
 
     package Joe2Jim ;
-    
+
     use Filter::Util::Call ;
 
     sub import
     {
         my($type) = @_ ;
-    
+
         filter_add(bless []) ;
     }
-    
+
     sub filter
     {
         my($self) = @_ ;
         my($status) ;
-    
+
         s/Joe/Jim/g
             if ($status = filter_read()) > 0 ;
         $status ;
     }
-    
+
     1 ;
 
 Here is an example of using the filter:
@@ -333,10 +333,10 @@
 C<Subst>.
 
     package Subst ;
- 
+
     use Filter::Util::Call ;
     use Carp ;
- 
+
     sub import
     {
         croak("usage: use Subst qw(from to)")
@@ -371,14 +371,14 @@
 Note that C<$status> is set to C<1> in this case.
 
     package Count ;
- 
+
     use Filter::Util::Call ;
- 
+
     sub filter
     {
         my ($self) = @_ ;
         my ($status) ;
- 
+
         if (($status = filter_read()) > 0 ) {
             s/Joe/Jim/g ;
 	    ++ $$self ;
@@ -391,14 +391,14 @@
 
         $status ;
     }
- 
+
     sub import
     {
         my ($self) = @_ ;
         my ($count) = 0 ;
         filter_add(\$count) ;
     }
- 
+
     1 ;
 
 Here is a script which uses it:
@@ -429,38 +429,38 @@
 Here is the module.
 
     package NewSubst ;
- 
+
     use Filter::Util::Call ;
     use Carp ;
- 
+
     sub import
     {
         my ($self, $start, $stop, $from, $to) = @_ ;
         my ($found) = 0 ;
         croak("usage: use Subst qw(start stop from to)")
             unless @_ == 5 ;
- 
+
         filter_add( 
             sub 
             {
                 my ($status) ;
-             
+
                 if (($status = filter_read()) > 0) {
-             
+
                     $found = 1
                         if $found == 0 and /$start/ ;
-             
+
                     if ($found) {
                         s/$from/$to/ ;
                         filter_del() if /$stop/ ;
                     }
-             
+
                 }
                 $status ;
             } )
-    
+
     }
-     
+
     1 ;
 
 =head1 AUTHOR
diff -urN perl-current.orig/ext/IO/lib/IO/Handle.pm perl-current/ext/IO/lib/IO/Handle.pm
--- perl-current.orig/ext/IO/lib/IO/Handle.pm	Thu Mar 15 20:33:19 2001
+++ perl-current/ext/IO/lib/IO/Handle.pm	Thu Mar 15 20:46:46 2001
@@ -100,7 +100,7 @@
 
 Furthermore, for doing normal I/O you might need these:
 
-=over 
+=over 4
 
 =item $io->fdopen ( FD, MODE )
 
@@ -206,7 +206,7 @@
 Lastly, there is a special method for working under B<-T> and setuid/gid
 scripts:
 
-=over
+=over 4
 
 =item $io->untaint
 
diff -urN perl-current.orig/ext/IO/lib/IO/Seekable.pm perl-current/ext/IO/lib/IO/Seekable.pm
--- perl-current.orig/ext/IO/lib/IO/Seekable.pm	Thu Mar 15 20:33:19 2001
+++ perl-current/ext/IO/lib/IO/Seekable.pm	Thu Mar 15 20:47:07 2001
@@ -34,7 +34,7 @@
 position. Returns "0 but true" on success, C<undef> on failure.
 
 =back
-  
+
 See L<perlfunc> for complete descriptions of each of the following
 supported C<IO::Seekable> methods, which are just front ends for the
 corresponding built-in functions:
@@ -80,7 +80,7 @@
 Returns the IO::File's current position, or -1 on error.
 
 =back
-  
+
 =head1 SEE ALSO
 
 L<perlfunc>, 
diff -urN perl-current.orig/ext/IO/lib/IO/Socket/UNIX.pm perl-current/ext/IO/lib/IO/Socket/UNIX.pm
--- perl-current.orig/ext/IO/lib/IO/Socket/UNIX.pm	Thu Mar 15 20:33:19 2001
+++ perl-current/ext/IO/lib/IO/Socket/UNIX.pm	Thu Mar 15 20:46:06 2001
@@ -103,7 +103,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 -urN perl-current.orig/ext/IPC/SysV/Msg.pm perl-current/ext/IPC/SysV/Msg.pm
--- perl-current.orig/ext/IPC/SysV/Msg.pm	Thu Mar 15 20:33:19 2001
+++ perl-current/ext/IPC/SysV/Msg.pm	Thu Mar 15 20:48:15 2001
@@ -126,6 +126,8 @@
 
 =head1 DESCRIPTION
 
+A class providing an object based interface to SysV IPC message queues.
+
 =head1 METHODS
 
 =over 4
diff -urN perl-current.orig/ext/IPC/SysV/Semaphore.pm perl-current/ext/IPC/SysV/Semaphore.pm
--- perl-current.orig/ext/IPC/SysV/Semaphore.pm	Thu Mar 15 20:33:19 2001
+++ perl-current/ext/IPC/SysV/Semaphore.pm	Thu Mar 15 20:48:45 2001
@@ -172,6 +172,8 @@
 
 =head1 DESCRIPTION
 
+A class providing an object based interface to SysV IPC semaphores.
+
 =head1 METHODS
 
 =over 4
diff -urN perl-current.orig/ext/IPC/SysV/SysV.pm perl-current/ext/IPC/SysV/SysV.pm
--- perl-current.orig/ext/IPC/SysV/SysV.pm	Thu Mar 15 20:33:19 2001
+++ perl-current/ext/IPC/SysV/SysV.pm	Thu Mar 15 20:48:57 2001
@@ -74,7 +74,7 @@
 defined in your system include files which are needed by the SysV
 IPC calls.
 
-=over
+=over 4
 
 =item ftok( PATH, ID )
 
diff -urN perl-current.orig/ext/NDBM_File/NDBM_File.pm perl-current/ext/NDBM_File/NDBM_File.pm
--- perl-current.orig/ext/NDBM_File/NDBM_File.pm	Thu Mar 15 20:33:19 2001
+++ perl-current/ext/NDBM_File/NDBM_File.pm	Thu Mar 15 20:49:35 2001
@@ -28,11 +28,11 @@
   $h{newkey} = newvalue;
   print $h{oldkey}; 
   ...
- 
+
   untie %h;
- 
+
 =head1 DESCRIPTION
- 
+
 C<NDBM_File> establishes a connection between a Perl hash variable and
 a file in NDBM_File format;.  You can manipulate the data in the file
 just as if it were in a Perl hash, but when your program exits, the
diff -urN perl-current.orig/ext/ODBM_File/ODBM_File.pm perl-current/ext/ODBM_File/ODBM_File.pm
--- perl-current.orig/ext/ODBM_File/ODBM_File.pm	Thu Mar 15 20:33:19 2001
+++ perl-current/ext/ODBM_File/ODBM_File.pm	Thu Mar 15 20:49:47 2001
@@ -28,11 +28,11 @@
   $h{newkey} = newvalue;
   print $h{oldkey}; 
   ...
- 
+
   untie %h;
- 
+
 =head1 DESCRIPTION
- 
+
 C<ODBM_File> establishes a connection between a Perl hash variable and
 a file in ODBM_File format;.  You can manipulate the data in the file
 just as if it were in a Perl hash, but when your program exits, the
diff -urN perl-current.orig/ext/Socket/Socket.pm perl-current/ext/Socket/Socket.pm
--- perl-current.orig/ext/Socket/Socket.pm	Thu Mar 15 20:33:19 2001
+++ perl-current/ext/Socket/Socket.pm	Thu Mar 15 20:50:02 2001
@@ -56,7 +56,7 @@
 
 In addition, some structure manipulation functions are available:
 
-=over
+=over 4
 
 =item inet_aton HOSTNAME
 
diff -urN perl-current.orig/ext/Storable/Storable.pm perl-current/ext/Storable/Storable.pm
--- perl-current.orig/ext/Storable/Storable.pm	Thu Mar 15 20:33:19 2001
+++ perl-current/ext/Storable/Storable.pm	Thu Mar 15 20:50:26 2001
@@ -527,7 +527,7 @@
 
 Here is the hooking interface:
 
-=over
+=over 4
 
 =item C<STORABLE_freeze> I<obj>, I<cloning>
 
@@ -596,7 +596,7 @@
 Predicates are not exportable.  They must be called by explicitely prefixing
 them with the Storable package name.
 
-=over
+=over 4
 
 =item C<Storable::last_op_in_netorder>
 
@@ -623,7 +623,7 @@
 
 There are a few things you need to know however:
 
-=over
+=over 4
 
 =item *
 
diff -urN perl-current.orig/ext/Sys/Syslog/Syslog.pm perl-current/ext/Sys/Syslog/Syslog.pm
--- perl-current.orig/ext/Sys/Syslog/Syslog.pm	Thu Mar 15 20:33:20 2001
+++ perl-current/ext/Sys/Syslog/Syslog.pm	Thu Mar 15 20:50:41 2001
@@ -46,7 +46,7 @@
 
 Syslog provides the functions:
 
-=over
+=over 4
 
 =item openlog $ident, $logopt, $facility
 
diff -urN perl-current.orig/ext/Thread/Thread/Queue.pm perl-current/ext/Thread/Thread/Queue.pm
--- perl-current.orig/ext/Thread/Thread/Queue.pm	Thu Mar 15 20:33:20 2001
+++ perl-current/ext/Thread/Thread/Queue.pm	Thu Mar 15 20:50:59 2001
@@ -59,7 +59,7 @@
 =head1 SEE ALSO
 
 L<Thread>
-  
+
 =cut
 
 sub new {
diff -urN perl-current.orig/ext/Thread/Thread.pm perl-current/ext/Thread/Thread.pm
--- perl-current.orig/ext/Thread/Thread.pm	Thu Mar 15 20:33:20 2001
+++ perl-current/ext/Thread/Thread.pm	Thu Mar 15 20:51:16 2001
@@ -22,7 +22,7 @@
     $result = $t->eval;
     $t->detach;
     $flags = $t->flags;
-    
+
     if ($t->done) {
         $t->join;
     }
diff -urN perl-current.orig/ext/attrs/attrs.pm perl-current/ext/attrs/attrs.pm
--- perl-current.orig/ext/attrs/attrs.pm	Thu Mar 15 20:33:20 2001
+++ perl-current/ext/attrs/attrs.pm	Thu Mar 15 20:51:29 2001
@@ -31,7 +31,7 @@
 of attribute names. Notice that C<attrs::get> is not exported.
 Valid attributes are as follows.
 
-=over
+=over 4
 
 =item method
 
diff -urN perl-current.orig/jpl/JNI/JNI.pm perl-current/jpl/JNI/JNI.pm
--- perl-current.orig/jpl/JNI/JNI.pm	Thu Mar 15 20:33:20 2001
+++ perl-current/jpl/JNI/JNI.pm	Thu Mar 15 20:52:05 2001
@@ -269,6 +269,8 @@
 
 =head1 DESCRIPTION
 
+This module provides an encapsulation in Perl of the Java Native Interface.
+
 =head1 Exported constants
 
   JNI_ABORT
diff -urN perl-current.orig/lib/CPAN.pm perl-current/lib/CPAN.pm
--- perl-current.orig/lib/CPAN.pm	Thu Mar 15 20:33:26 2001
+++ perl-current/lib/CPAN.pm	Thu Mar 15 21:06:06 2001
@@ -6181,7 +6181,7 @@
 methods are documented that have proven useful over a longer time and
 thus are unlikely to change.
 
-=over
+=over 4
 
 =item CPAN::Author::as_glimpse()
 
@@ -6746,7 +6746,7 @@
 
 Firewalls can be categorized into three basic types.
 
-=over
+=over 4
 
 =item http firewall
 
@@ -6780,7 +6780,7 @@
 
 There are two that I can think off.
 
-=over
+=over 4
 
 =item SOCKS
 
@@ -6819,7 +6819,7 @@
 
 =head1 FAQ
 
-=over
+=over 4
 
 =item 1)
 
diff -urN perl-current.orig/lib/Class/Struct.pm perl-current/lib/Class/Struct.pm
--- perl-current.orig/lib/Class/Struct.pm	Thu Mar 15 20:33:21 2001
+++ perl-current/lib/Class/Struct.pm	Thu Mar 15 20:54:10 2001
@@ -361,7 +361,7 @@
 The accessor method provided by C<struct> for an element depends
 on the declared type of the element.
 
-=over
+=over 4
 
 =item Scalar (C<'$'> or C<'*$'>)
 
@@ -437,7 +437,7 @@
 
 =head1 EXAMPLES
 
-=over
+=over 4
 
 =item Example 1
 
diff -urN perl-current.orig/lib/Dumpvalue.pm perl-current/lib/Dumpvalue.pm
--- perl-current.orig/lib/Dumpvalue.pm	Thu Mar 15 20:33:26 2001
+++ perl-current/lib/Dumpvalue.pm	Thu Mar 15 21:07:02 2001
@@ -495,7 +495,7 @@
 
 Recognized options:
 
-=over
+=over 4
 
 =item C<arrayDepth>, C<hashDepth>
 
@@ -563,7 +563,7 @@
 
 =head2 Methods
 
-=over
+=over 4
 
 =item dumpValue
 
diff -urN perl-current.orig/lib/ExtUtils/Embed.pm perl-current/lib/ExtUtils/Embed.pm
--- perl-current.orig/lib/ExtUtils/Embed.pm	Thu Mar 15 20:33:21 2001
+++ perl-current/lib/ExtUtils/Embed.pm	Thu Mar 15 20:54:24 2001
@@ -295,7 +295,7 @@
 
 =head1 FUNCTIONS
 
-=over
+=over 4
 
 =item xsinit()
 
diff -urN perl-current.orig/lib/ExtUtils/Installed.pm perl-current/lib/ExtUtils/Installed.pm
--- perl-current.orig/lib/ExtUtils/Installed.pm	Thu Mar 15 20:33:21 2001
+++ perl-current/lib/ExtUtils/Installed.pm	Thu Mar 15 20:54:37 2001
@@ -208,7 +208,7 @@
 
 =head1 FUNCTIONS
 
-=over
+=over 4
 
 =item new()
 
diff -urN perl-current.orig/lib/ExtUtils/MM_Cygwin.pm perl-current/lib/ExtUtils/MM_Cygwin.pm
--- perl-current.orig/lib/ExtUtils/MM_Cygwin.pm	Thu Mar 15 20:33:21 2001
+++ perl-current/lib/ExtUtils/MM_Cygwin.pm	Thu Mar 15 20:54:48 2001
@@ -103,7 +103,7 @@
 
 See ExtUtils::MM_Unix for a documentation of the methods provided there.
 
-=over
+=over 4
 
 =item canonpath
 
diff -urN perl-current.orig/lib/ExtUtils/MM_OS2.pm perl-current/lib/ExtUtils/MM_OS2.pm
--- perl-current.orig/lib/ExtUtils/MM_OS2.pm	Thu Mar 15 20:33:21 2001
+++ perl-current/lib/ExtUtils/MM_OS2.pm	Thu Mar 15 20:56:19 2001
@@ -14,6 +14,28 @@
 
 unshift @MM::ISA, 'ExtUtils::MM_OS2';
 
+=pod
+
+=head1 NAME
+
+ExtUtils::MM_OS2 - methods to override UN*X behaviour in ExtUtils::MakeMaker
+
+=head1 SYNOPSIS
+
+ use ExtUtils::MM_OS2; # Done internally by ExtUtils::MakeMaker if needed
+
+=head1 DESCRIPTION
+
+See ExtUtils::MM_Unix for a documentation of the methods provided
+there. This package overrides the implementation of these methods, not
+the semantics.
+
+=head1 METHODS
+
+=over 4
+
+=cut
+
 sub dlsyms {
     my($self,%attribs) = @_;
 
@@ -120,19 +142,11 @@
 }
 
 1;
-__END__
-
-=head1 NAME
-
-ExtUtils::MM_OS2 - methods to override UN*X behaviour in ExtUtils::MakeMaker
 
-=head1 SYNOPSIS
-
- use ExtUtils::MM_OS2; # Done internally by ExtUtils::MakeMaker if needed
+__END__
 
-=head1 DESCRIPTION
+=pod
 
-See ExtUtils::MM_Unix for a documentation of the methods provided
-there. This package overrides the implementation of these methods, not
-the semantics.
+=back
 
+=cut
diff -urN perl-current.orig/lib/ExtUtils/MM_VMS.pm perl-current/lib/ExtUtils/MM_VMS.pm
--- perl-current.orig/lib/ExtUtils/MM_VMS.pm	Thu Mar 15 20:33:21 2001
+++ perl-current/lib/ExtUtils/MM_VMS.pm	Thu Mar 15 20:57:30 2001
@@ -41,7 +41,7 @@
 
 =head2 Methods always loaded
 
-=over
+=over 4
 
 =item wraplist
 
@@ -173,7 +173,7 @@
 of why this method overrides the MM_Unix method; see the ExtUtils::MM_Unix
 documentation for more details.
 
-=over
+=over 4
 
 =item guess_name (override)
 
diff -urN perl-current.orig/lib/ExtUtils/MM_Win32.pm perl-current/lib/ExtUtils/MM_Win32.pm
--- perl-current.orig/lib/ExtUtils/MM_Win32.pm	Thu Mar 15 20:33:21 2001
+++ perl-current/lib/ExtUtils/MM_Win32.pm	Thu Mar 15 21:12:22 2001
@@ -16,7 +16,7 @@
 there. This package overrides the implementation of these methods, not
 the semantics.
 
-=over
+=over 4
 
 =cut 
 
diff -urN perl-current.orig/lib/ExtUtils/Manifest.pm perl-current/lib/ExtUtils/Manifest.pm
--- perl-current.orig/lib/ExtUtils/Manifest.pm	Thu Mar 15 20:33:21 2001
+++ perl-current/lib/ExtUtils/Manifest.pm	Thu Mar 15 21:13:45 2001
@@ -447,7 +447,7 @@
 
 All diagnostic output is sent to C<STDERR>.
 
-=over
+=over 4
 
 =item C<Not in MANIFEST:> I<file>
 
diff -urN perl-current.orig/lib/ExtUtils/Mksymlists.pm perl-current/lib/ExtUtils/Mksymlists.pm
--- perl-current.orig/lib/ExtUtils/Mksymlists.pm	Thu Mar 15 20:33:21 2001
+++ perl-current/lib/ExtUtils/Mksymlists.pm	Thu Mar 15 21:13:58 2001
@@ -217,7 +217,7 @@
 It takes one argument, a list of key-value pairs, in which the following
 keys are recognized:
 
-=over
+=over 4
 
 =item DLBASE
 
diff -urN perl-current.orig/lib/ExtUtils/Packlist.pm perl-current/lib/ExtUtils/Packlist.pm
--- perl-current.orig/lib/ExtUtils/Packlist.pm	Thu Mar 15 20:33:21 2001
+++ perl-current/lib/ExtUtils/Packlist.pm	Thu Mar 15 21:14:08 2001
@@ -200,7 +200,7 @@
 
 =head1 FUNCTIONS
 
-=over
+=over 4
 
 =item new()
 
diff -urN perl-current.orig/lib/File/Basename.pm perl-current/lib/File/Basename.pm
--- perl-current.orig/lib/File/Basename.pm	Thu Mar 15 20:33:21 2001
+++ perl-current/lib/File/Basename.pm	Thu Mar 15 20:58:20 2001
@@ -95,7 +95,7 @@
     $dir  eq 'Doc_Root:[Help]'
     $type eq '.Rnh'
 
-=over
+=over 4
 
 =item C<basename>
 
diff -urN perl-current.orig/lib/File/Spec/VMS.pm perl-current/lib/File/Spec/VMS.pm
--- perl-current.orig/lib/File/Spec/VMS.pm	Thu Mar 15 20:33:21 2001
+++ perl-current/lib/File/Spec/VMS.pm	Thu Mar 15 20:57:56 2001
@@ -26,7 +26,7 @@
 there. This package overrides the implementation of these methods, not
 the semantics.
 
-=over
+=over 4
 
 =item eliminate_macros
 
@@ -138,7 +138,7 @@
 
 =head2 Methods always loaded
 
-=over
+=over 4
 
 =item canonpath (override)
 
diff -urN perl-current.orig/lib/File/Spec/Win32.pm perl-current/lib/File/Spec/Win32.pm
--- perl-current.orig/lib/File/Spec/Win32.pm	Thu Mar 15 20:33:21 2001
+++ perl-current/lib/File/Spec/Win32.pm	Thu Mar 15 20:58:07 2001
@@ -23,7 +23,7 @@
 there. This package overrides the implementation of these methods, not
 the semantics.
 
-=over
+=over 4
 
 =item devnull
 
diff -urN perl-current.orig/lib/FileHandle.pm perl-current/lib/FileHandle.pm
--- perl-current.orig/lib/FileHandle.pm	Thu Mar 15 20:33:26 2001
+++ perl-current/lib/FileHandle.pm	Thu Mar 15 21:07:14 2001
@@ -225,7 +225,7 @@
 
 Furthermore, for doing normal I/O you might need these:
 
-=over 
+=over 4
 
 =item $fh->print
 
diff -urN perl-current.orig/lib/Filter/Simple.pm perl-current/lib/Filter/Simple.pm
--- perl-current.orig/lib/Filter/Simple.pm	Thu Mar 15 20:33:22 2001
+++ perl-current/lib/Filter/Simple.pm	Thu Mar 15 20:59:09 2001
@@ -52,7 +52,6 @@
 
 Filter::Simple - Simplified source filtering
 
-
 =head1 SYNOPSIS
 
  # in MyFilter.pm:
@@ -141,7 +140,7 @@
 C<use BANG;> statement (until the next C<no BANG;> statement, if any):
 
         package BANG;
- 
+
         use Filter::Util::Call ;
 
         sub import {
@@ -198,7 +197,7 @@
 In other words, the previous example, would become:
 
         package BANG;
- 
+
         use Filter::Simple sub {
             s/BANG\s+BANG/die 'BANG' if \$BANG/g;
         };
@@ -218,7 +217,7 @@
 be made parametric:
 
         package BANG;
- 
+
         use Filter::Simple sub {
             my ($die_msg, $var_name) = @_;
             s/BANG\s+BANG/die '$die_msg' if \${$var_name}/g;
diff -urN perl-current.orig/lib/Getopt/Long.pm perl-current/lib/Getopt/Long.pm
--- perl-current.orig/lib/Getopt/Long.pm	Thu Mar 15 20:33:22 2001
+++ perl-current/lib/Getopt/Long.pm	Thu Mar 15 20:59:33 2001
@@ -1326,7 +1326,7 @@
 
 The argument specification can be
 
-=over
+=over 4
 
 =item !
 
@@ -1352,7 +1352,7 @@
 The option requires an argument of the given type. Supported types
 are:
 
-=over
+=over 4
 
 =item s
 
diff -urN perl-current.orig/lib/Locale/Constants.pm perl-current/lib/Locale/Constants.pm
--- perl-current.orig/lib/Locale/Constants.pm	Thu Mar 15 20:33:26 2001
+++ perl-current/lib/Locale/Constants.pm	Thu Mar 15 21:04:13 2001
@@ -31,7 +31,7 @@
 =head1 SYNOPSIS
 
     use Locale::Constants;
-    
+
     $codeset = LOCALE_CODE_ALPHA_2;
 
 =head1 DESCRIPTION
diff -urN perl-current.orig/lib/Locale/Country.pm perl-current/lib/Locale/Country.pm
--- perl-current.orig/lib/Locale/Country.pm	Thu Mar 15 20:33:26 2001
+++ perl-current/lib/Locale/Country.pm	Thu Mar 15 21:04:40 2001
@@ -7,13 +7,13 @@
 =head1 SYNOPSIS
 
     use Locale::Country;
-    
+
     $country = code2country('jp');               # $country gets 'Japan'
     $code    = country2code('Norway');           # $code gets 'no'
-    
+
     @codes   = all_country_codes();
     @names   = all_country_names();
-    
+
     # add "uk" as a pseudo country code for United Kingdom
     Locale::Country::_alias_code('uk' => 'gb');
 
@@ -285,7 +285,7 @@
 code for United Kingdom, use the following:
 
     use Locale::Country;
-    
+
     Locale::Country::_alias_code('uk' => 'gb');
 
 With this code, both "uk" and "gb" are valid codes for United Kingdom,
@@ -325,7 +325,7 @@
 country name:
 
     $| = 1;   # turn off buffering
-    
+
     print "Enter country code: ";
     chop($code = <STDIN>);
     $country = code2country($code, LOCALE_CODE_ALPHA_2);
diff -urN perl-current.orig/lib/Locale/Language.pm perl-current/lib/Locale/Language.pm
--- perl-current.orig/lib/Locale/Language.pm	Thu Mar 15 20:33:26 2001
+++ perl-current/lib/Locale/Language.pm	Thu Mar 15 21:05:16 2001
@@ -7,10 +7,10 @@
 =head1 SYNOPSIS
 
     use Locale::Language;
-    
+
     $lang = code2language('en');        # $lang gets 'English'
     $code = language2code('French');    # $code gets 'fr'
-    
+
     @codes   = all_language_codes();
     @names   = all_language_names();
 
@@ -173,7 +173,7 @@
 language name:
 
     $| = 1;    # turn off buffering
-    
+
     print "Enter language code: ";
     chop($code = <STDIN>);
     $lang = code2language($code);
diff -urN perl-current.orig/lib/Term/ANSIColor.pm perl-current/lib/Term/ANSIColor.pm
--- perl-current.orig/lib/Term/ANSIColor.pm	Thu Mar 15 20:33:22 2001
+++ perl-current/lib/Term/ANSIColor.pm	Thu Mar 15 21:00:19 2001
@@ -187,7 +187,7 @@
 
 This module has two interfaces, one through color() and colored() and the
 other through constants.
-    
+
 color() takes any number of strings as arguments and considers them to be
 space-separated lists of attributes.  It then forms and returns the escape
 sequence to set those attributes.  It doesn't print it out, just returns
diff -urN perl-current.orig/lib/Test/Harness.pm perl-current/lib/Test/Harness.pm
--- perl-current.orig/lib/Test/Harness.pm	Thu Mar 15 20:33:22 2001
+++ perl-current/lib/Test/Harness.pm	Thu Mar 15 21:01:20 2001
@@ -650,7 +650,7 @@
 
 =over 4
 
-=item B<1..M>
+=item B<'1..M'>
 
 This header tells how many tests there will be.  It should be the
 first line output by your test program (but its okay if its preceded
diff -urN perl-current.orig/lib/Test.pm perl-current/lib/Test.pm
--- perl-current.orig/lib/Test.pm	Thu Mar 15 20:33:26 2001
+++ perl-current/lib/Test.pm	Thu Mar 15 21:07:42 2001
@@ -151,7 +151,7 @@
 
 =head1 NAME
 
-  Test - provides a simple framework for writing test scripts
+Test - provides a simple framework for writing test scripts
 
 =head1 SYNOPSIS
 
diff -urN perl-current.orig/lib/Text/Wrap.pm perl-current/lib/Text/Wrap.pm
--- perl-current.orig/lib/Text/Wrap.pm	Thu Mar 15 20:33:23 2001
+++ perl-current/lib/Text/Wrap.pm	Thu Mar 15 21:02:04 2001
@@ -120,7 +120,7 @@
 	$huge = 'overflow';
 
 B<Example 3>
-	
+
 	use Text::Wrap
 
 	$Text::Wrap::columns = 72;
diff -urN perl-current.orig/lib/Tie/Array.pm perl-current/lib/Tie/Array.pm
--- perl-current.orig/lib/Tie/Array.pm	Thu Mar 15 20:33:23 2001
+++ perl-current/lib/Tie/Array.pm	Thu Mar 15 21:02:25 2001
@@ -179,7 +179,7 @@
 are briefly defined below. See the L<perltie> section for more detailed
 descriptive, as well as example code:
 
-=over
+=over 4
 
 =item TIEARRAY classname, LIST
 
diff -urN perl-current.orig/lib/Tie/Handle.pm perl-current/lib/Tie/Handle.pm
--- perl-current.orig/lib/Tie/Handle.pm	Thu Mar 15 20:33:23 2001
+++ perl-current/lib/Tie/Handle.pm	Thu Mar 15 21:02:16 2001
@@ -33,7 +33,7 @@
 are summarized below. The L<perltie> section not only documents these, but
 has sample code as well:
 
-=over
+=over 4
 
 =item TIEHANDLE classname, LIST
 
diff -urN perl-current.orig/lib/Tie/Hash.pm perl-current/lib/Tie/Hash.pm
--- perl-current.orig/lib/Tie/Hash.pm	Thu Mar 15 20:33:23 2001
+++ perl-current/lib/Tie/Hash.pm	Thu Mar 15 21:03:31 2001
@@ -10,24 +10,24 @@
 
     package NewHash;
     require Tie::Hash;
-    
+
     @ISA = (Tie::Hash);
-    
+
     sub DELETE { ... }		# Provides needed method
     sub CLEAR { ... }		# Overrides inherited method
-    
-    
+
+
     package NewStdHash;
     require Tie::Hash;
-    
+
     @ISA = (Tie::StdHash);
-    
+
     # All methods provided by default, define only those needing overrides
     sub DELETE { ... }
-    
-    
+
+
     package main;
-    
+
     tie %new_hash, 'NewHash';
     tie %new_std_hash, 'NewStdHash';
 
@@ -46,7 +46,7 @@
 are briefly defined below. See the L<perltie> section for more detailed
 descriptive, as well as example code:
 
-=over
+=over 4
 
 =item TIEHASH classname, LIST
 
diff -urN perl-current.orig/lib/Tie/Scalar.pm perl-current/lib/Tie/Scalar.pm
--- perl-current.orig/lib/Tie/Scalar.pm	Thu Mar 15 20:33:23 2001
+++ perl-current/lib/Tie/Scalar.pm	Thu Mar 15 21:03:44 2001
@@ -47,7 +47,7 @@
 are summarized below. The L<perltie> section not only documents these, but
 has sample code as well:
 
-=over
+=over 4
 
 =item TIESCALAR classname, LIST
 
diff -urN perl-current.orig/lib/User/pwent.pm perl-current/lib/User/pwent.pm
--- perl-current.orig/lib/User/pwent.pm	Thu Mar 15 20:33:23 2001
+++ perl-current/lib/User/pwent.pm	Thu Mar 15 21:03:55 2001
@@ -287,7 +287,7 @@
 
 =head1 HISTORY
 
-=over
+=over 4
 
 =item March 18th, 2000
 
diff -urN perl-current.orig/lib/autouse.pm perl-current/lib/autouse.pm
--- perl-current.orig/lib/autouse.pm	Thu Mar 15 20:33:27 2001
+++ perl-current/lib/autouse.pm	Thu Mar 15 21:07:56 2001
@@ -116,7 +116,7 @@
 Using C<autouse> will move important steps of your program's execution
 from compile time to runtime.  This can
 
-=over
+=over 4
 
 =item *
 
diff -urN perl-current.orig/lib/overload.pm perl-current/lib/overload.pm
--- perl-current.orig/lib/overload.pm	Thu Mar 15 20:33:27 2001
+++ perl-current/lib/overload.pm	Thu Mar 15 21:08:28 2001
@@ -267,7 +267,7 @@
 
 Two types of mutators have different calling conventions:
 
-=over
+=over 4
 
 =item C<++> and C<-->
 
@@ -450,7 +450,7 @@
 
 Inheritance interacts with overloading in two ways.
 
-=over
+=over 4
 
 =item Strings as values of C<use overload> directive
 
@@ -1028,7 +1028,7 @@
 actual array, and the access hash.  The tie()ing object for the access
 hash is a reference to a reference to the actual array, so
 
-=over
+=over 4
 
 =item *
 
@@ -1058,8 +1058,8 @@
   }
 
 This module is very unusual as overloaded modules go: it does not
-provide any usual overloaded operators, instead it provides the L<Last
-Resort> operator C<nomethod>.  In this example the corresponding
+provide any usual overloaded operators, instead it provides the 
+L<Last Resort> operator C<nomethod>.  In this example the corresponding
 subroutine returns an object which encapsulates operations done over
 the objects: C<new symbolic 3> contains C<['n', 3]>, C<2 + new
 symbolic 3> contains C<['+', 2, ['n', 3]]>.
diff -urN perl-current.orig/os2/OS2/ExtAttr/ExtAttr.pm perl-current/os2/OS2/ExtAttr/ExtAttr.pm
--- perl-current.orig/os2/OS2/ExtAttr/ExtAttr.pm	Thu Mar 15 20:33:27 2001
+++ perl-current/os2/OS2/ExtAttr/ExtAttr.pm	Thu Mar 15 21:08:52 2001
@@ -133,7 +133,7 @@
   tie %ea, 'OS2::ExtAttr', 'my.file';
   print $ea{eaname};
   $ea{myfield} = 'value';
-  
+
   untie %ea;
 
 =head1 DESCRIPTION
diff -urN perl-current.orig/os2/OS2/Process/Process.pm perl-current/os2/OS2/Process/Process.pm
--- perl-current.orig/os2/OS2/Process/Process.pm	Thu Mar 15 20:33:27 2001
+++ perl-current/os2/OS2/Process/Process.pm	Thu Mar 15 21:10:12 2001
@@ -128,14 +128,14 @@
 my_type() returns the type of the current process (one of 
 "FS", "DOS", "VIO", "PM", "DETACH" and "UNKNOWN"), or C<undef> on error.
 
-=over
+=over 4
 
 =item C<file_type(file)> 
 
 returns the type of the executable file C<file>, or
 dies on error.  The bits 0-2 of the result contain one of the values
 
-=over
+=over 4
 
 =item C<T_NOTSPEC> (0)
 
@@ -158,7 +158,7 @@
 The remaining bits should be masked with the following values to
 determine the type of the executable:
 
-=over
+=over 4
 
 =item C<T_BOUND> (8)
 
@@ -204,46 +204,46 @@
 
 returns a list of the following data:
 
-=over
+=over 4
 
-=item 
+=item *
 
 Title of the process (in the C<Ctrl-Esc> list);
 
-=item 
+=item *
 
 window handle of switch entry of the process (in the C<Ctrl-Esc> list);
 
-=item 
+=item *
 
 window handle of the icon of the process;
 
-=item 
+=item *
 
 process handle of the owner of the entry in C<Ctrl-Esc> list;
 
-=item 
+=item *
 
 process id of the owner of the entry in C<Ctrl-Esc> list;
 
-=item 
+=item *
 
 session id of the owner of the entry in C<Ctrl-Esc> list;
 
-=item 
+=item *
 
 whether visible in C<Ctrl-Esc> list;
 
-=item
+=item *
 
 whether item cannot be switched to (note that it is not actually
 grayed in the C<Ctrl-Esc> list));
 
-=item 
+=item *
 
 whether participates in jump sequence;
 
-=item 
+=item *
 
 program type.  Possible values are: 
 
@@ -262,7 +262,6 @@
 is a windowed WIN-OS/2 program, it runs in a PROG_WINDOWEDVDM
 session. Likewise, if it's a full-screen WIN-OS/2 program, it runs in
 a PROG_VDM session.
-
 
 =back
 

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About