perlmodlib tweaks; regen pods.

p4raw-id: //depot/perl@9963

diff --git a/pod/Makefile.SH b/pod/Makefile.SH
index 51772f1..a186565 100644 (file)
--- a/pod/Makefile.SH
+++ b/pod/Makefile.SH
@@ -84,7 +84,7 @@ html: pod2html $(HTML)
 
 tex:   pod2latex $(TEX)
 
-toc:   buildtoc
+toc perltoc.pod:       buildtoc
        $(PERLILIB) buildtoc
 
 .SUFFIXES: .pm .pod
@@ -157,7 +157,7 @@ podchecker: podchecker.PL ../lib/Config.pm
 podselect:     podselect.PL ../lib/Config.pm
        $(PERL) -I ../lib podselect.PL
 
-perlmodlib.pod:        $(PERL) perlmodlib.PL ../mv-if-diff
+perlmodlib.pod:        $(PERL) perlmodlib.PL ../mv-if-diff ../MANIFEST
        rm -f perlmodlib.tmp
        $(PERL) -I ../lib perlmodlib.PL
        sh ../mv-if-diff perlmodlib.tmp perlmodlib.pod

diff --git a/pod/perlmodlib.PL b/pod/perlmodlib.PL
index 0cdadb7..eb419ad 100644 (file)
--- a/pod/perlmodlib.PL
+++ b/pod/perlmodlib.PL
@@ -1,17 +1,20 @@
 #!../miniperl
 
+$ENV{LC_ALL} = 'C';
+
 open (OUT, ">perlmodlib.tmp") or die $!;
-my (@pragma, @mod);
+my (@pragma, @mod, @MANIFEST);
 open (MANIFEST, "../MANIFEST") or die $!;
 
 while (<MANIFEST>) {
      my $filename;
      next unless s|^lib/|| or m|^ext/|;
-     ($filename) = /(\S+)/;
+     ($filename) = m|^(\S+)|;
      $filename =~ s|^[^/]+/|| if $filename =~ s|^ext/||;
-     next unless $filename =~ /\.p(m|od)$/;
+     next unless $filename =~ m!\.p(m|od)$!;
      next unless open (MOD, "../lib/$filename");
 
+
      my ($name, $thing);
      my $foundit=0;
      {
@@ -23,7 +26,7 @@ while (<MANIFEST>) {
         }
      }
      unless ($foundit) {
-        warn "$filename missing head1\n";
+        warn "$filename missing =head1 NAME (okay if there is respective .pod)\n";
         next;
      }
      my $title = <MOD>;
@@ -42,13 +45,12 @@ while (<MANIFEST>) {
         next;
      }
 
+
      $thing =~ s/^perl pragma to //i;
      $thing = ucfirst($thing);
      $title = "=item $perlname\n\n$thing\n\n";
 
-     # print "$perlname $thing\n";
-
-     if ($filename=~/[A-Z]/) {
+     if ($filename =~ /[A-Z]/) {
           push @mod, $title;
      } else {
           push @pragma, $title;

diff --git a/pod/perlmodlib.pod b/pod/perlmodlib.pod
index 3215aec..f63a984 100644 (file)
--- a/pod/perlmodlib.pod
+++ b/pod/perlmodlib.pod
@@ -138,7 +138,7 @@ Strictly distinguish UTF8 data and non-UTF data.
 
 =item utf8
 
-Enable/disable UTF-8 in source code
+Enable/disable UTF-8 (or UTF-EBCDIC) in source code
 
 =item vars
 
@@ -586,6 +586,10 @@ Trigonometric functions
 
 Tied access to ndbm files
 
+=item NEXT
+
+Provide a pseudo-class NEXT that allows method redispatch
+
 =item Net::Ping
 
 Check a remote host for reachability

diff --git a/pod/perltoc.pod b/pod/perltoc.pod
index e0a4d8e..ccc4480 100644 (file)
--- a/pod/perltoc.pod
+++ b/pod/perltoc.pod
@@ -2214,7 +2214,7 @@ File::Spec::VMS, File::Spec::Win32, File::Temp, File::stat, FileCache,
 FileHandle, Filter::Simple, FindBin, Getopt::Long, Getopt::Std,
 I18N::Collate, IO, IPC::Open2, IPC::Open3, Locale::Constants,
 Locale::Country, Locale::Currency, Locale::Language, Math::BigFloat,
-Math::BigInt, Math::Complex, Math::Trig, NDBM_File, Net::Ping,
+Math::BigInt, Math::Complex, Math::Trig, NDBM_File, NEXT, Net::Ping,
 Net::hostent, Net::netent, Net::protoent, Net::servent, O, ODBM_File,
 Opcode, POSIX, PerlIO, Pod::Checker, Pod::Find, Pod::Html,
 Pod::InputObjects, Pod::LaTeX, Pod::Man, Pod::ParseUtils, Pod::Parser,
@@ -2776,6 +2776,9 @@ filehandles between subroutines?  How do I make an array of filehandles?
 =item I still don't get locking.  I just want to increment the number in
 the file.  How can I do this?
 
+=item All I want to do is append a small amount of text to the end of a
+file.  Do I still have to use locking?
+
 =item How do I randomly update a binary file?
 
 =item How do I get a file's timestamp in perl?
@@ -5501,6 +5504,11 @@ B<Unix emulation for AmigaOS: ixemul.library>, B<Version of Amiga OS>
 
 =item Shortcomings of Perl under AmigaOS
 
+fork(), some features of the UNIX filesystem regarding link count and file
+dates, inplace operation (the -i switch) without backup file, umask()
+works, but the correct permissions are only set when the file is      
+finally close()d
+
 =back
 
 =item INSTALLATION
@@ -5529,7 +5537,7 @@ B<Unix emulation for AmigaOS: ixemul.library>, B<Version of Amiga OS>
 
 =item Making
 
-sh Configure -Dprefix=/ade -Dloclibpth=/ade/lib
+       remember to use a hefty wad of stack (I use 2000000)
 
 =item Testing
 
@@ -5672,50 +5680,6 @@ Source, Compiled Module Source, Perl Modules/Scripts
 
 =back
 
-=head2 perldos - Perl under DOS, W31, W95.
-
-=over 4
-
-=item SYNOPSIS
-
-=item DESCRIPTION
-
-=over 4
-
-=item Prerequisites
-
-DJGPP, Pthreads
-
-=item Shortcomings of Perl under DOS
-
-=item Building
-
-=item Testing
-
-=item Installation
-
-=back
-
-=item BUILDING AND INSTALLING MODULES
-
-=over 4
-
-=item Prerequisites
-
-=item Unpacking CPAN Modules
-
-=item Building Non-XS Modules
-
-=item Building XS Modules
-
-=back
-
-=item AUTHOR
-
-=item SEE ALSO
-
-=back
-
 =head2 perlepoc, README.epoc - Perl for EPOC
 
 =over 4
@@ -6400,48 +6364,6 @@ LIST, waitpid PID,FLAGS
 
 =back
 
-=head2 perlwin32 - Perl under Win32
-
-=over 4
-
-=item SYNOPSIS
-
-=item DESCRIPTION
-
-=over 4
-
-=item Setting Up
-
-Make, Command Shell, Borland C++, Microsoft Visual C++, Mingw32 with GCC
-
-=item Building
-
-=item Testing
-
-=item Installation
-
-=item Usage Hints
-
-Environment Variables, File Globbing, Using perl from the command line,
-Building Extensions, Command-line Wildcard Expansion, Win32 Specific
-Extensions, Running Perl Scripts, Miscellaneous Things
-
-=back
-
-=item BUGS AND CAVEATS
-
-=item AUTHORS
-
-Gary Ng E<lt>71564.1743@CompuServe.COME<gt>, Gurusamy Sarathy
-E<lt>gsar@activestate.comE<gt>, Nick Ing-Simmons
-E<lt>nick@ing-simmons.netE<gt>
-
-=item SEE ALSO
-
-=item HISTORY
-
-=back
-
 =head1 PRAGMA DOCUMENTATION
 
 =head2 attrs - set/get attributes of a subroutine (deprecated)
@@ -7176,8 +7098,9 @@ label, stash, file, cop_seq, arybase, line
 
 main_cv, init_av, main_root, main_start, comppadlist, sv_undef, sv_yes,
 sv_no, amagic_generation, walkoptree(OP, METHOD), walkoptree_debug(DEBUG),
-walksymtable(SYMREF, METHOD, RECURSE), svref_2object(SV), ppname(OPNUM),
-hash(STR), cast_I32(I), minus_c, cstring(STR), class(OBJ), threadsv_names
+walksymtable(SYMREF, METHOD, RECURSE, PREFIX), svref_2object(SV),
+ppname(OPNUM), hash(STR), cast_I32(I), minus_c, cstring(STR), class(OBJ),
+threadsv_names
 
 =item AUTHOR
 
@@ -7334,6 +7257,8 @@ B<#targ>, B<#targarg>, B<#targarglife>, B<#typenum>
 
 =back
 
+=item Using B::Concise outside of the O framework
+
 =item AUTHOR
 
 =back
@@ -7360,7 +7285,7 @@ B<#targ>, B<#targarg>, B<#targarglife>, B<#typenum>
 
 =item OPTIONS
 
-B<-l>, B<-p>, B<-q>, B<-u>I<PACKAGE>, B<-s>I<LETTERS>, B<C>, B<i>I<NUMBER>,
+B<-l>, B<-p>, B<-q>, B<-f>I<FILE>, B<-s>I<LETTERS>, B<C>, B<i>I<NUMBER>,
 B<T>, B<v>I<STRING>B<.>, B<-x>I<LEVEL>
 
 =item USING B::Deparse AS A MODULE
@@ -8622,7 +8547,8 @@ B<DB_HASH>, B<DB_BTREE>, B<DB_RECNO>
 =item Extra RECNO Methods
 
 B<$X-E<gt>push(list) ;>, B<$value = $X-E<gt>pop ;>, B<$X-E<gt>shift>,
-B<$X-E<gt>unshift(list) ;>, B<$X-E<gt>length>
+B<$X-E<gt>unshift(list) ;>, B<$X-E<gt>length>, B<$X-E<gt>splice(offset,
+length, elements);>
 
 =item Another Example
 
@@ -9008,10 +8934,12 @@ reference, e.g.:
 
 =item Encoding and IO
 
+=item Encode and PerlIO
+
 =item Encoding How to ...
 
 IO with mixed content (faking iso-2020-*), MIME's Content-Length:, UTF-8
-strings in binary data, perl/Encode wrappers on non-Unicode XS modules
+strings in binary data, Perl/Encode wrappers on non-Unicode XS modules
 
 =item Messing with Perl's Internals
 
@@ -10418,6 +10346,10 @@ $fh->print, $fh->printf, $fh->getline, $fh->getlines
 
 =item A Solution
 
+=item Disabling or changing <no> behaviour
+
+=item All-in-one interface
+
 =item How it works
 
 =back
@@ -10754,8 +10686,8 @@ IO ), handles( [ EVENT_MASK ] )
 
 =item DESCRIPTION
 
-$io->getpos, $io->setpos, $io->setpos ( POS, WHENCE ), WHENCE=0 (SEEK_SET),
-WHENCE=1 (SEEK_CUR), WHENCE=1 (SEEK_END), $io->sysseek( POS, WHENCE ),
+$io->getpos, $io->setpos, $io->seek ( POS, WHENCE ), WHENCE=0 (SEEK_SET),
+WHENCE=1 (SEEK_CUR), WHENCE=2 (SEEK_END), $io->sysseek( POS, WHENCE ),
 $io->tell
 
 =item SEE ALSO
@@ -10994,8 +10926,8 @@ I/O objects
 
 =item DESCRIPTION
 
-$io->getpos, $io->setpos, $io->setpos ( POS, WHENCE ), WHENCE=0 (SEEK_SET),
-WHENCE=1 (SEEK_CUR), WHENCE=1 (SEEK_END), $io->sysseek( POS, WHENCE ),
+$io->getpos, $io->setpos, $io->seek ( POS, WHENCE ), WHENCE=0 (SEEK_SET),
+WHENCE=1 (SEEK_CUR), WHENCE=2 (SEEK_END), $io->sysseek( POS, WHENCE ),
 $io->tell
 
 =item SEE ALSO
@@ -11292,7 +11224,8 @@ general-utility scalar subroutines
 
 =item DESCRIPTION
 
-blessed EXPR, dualvar NUM, STRING, isweak EXPR, reftype EXPR, weaken REF
+blessed EXPR, dualvar NUM, STRING, isweak EXPR, readonly SCALAR, reftype
+EXPR, tainted EXPR, weaken REF
 
 =item COPYRIGHT
 
@@ -11670,6 +11603,22 @@ C<O_RDONLY>, C<O_WRONLY>, C<O_RDWR>
 
 =back
 
+=head2 NEXT - Provide a pseudo-class NEXT that allows method redispatch
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item AUTHOR
+
+=item BUGS AND IRRITATIONS
+
+=item COPYRIGHT
+
+=back
+
 =head2 Net::Ping - check a remote host for reachability
 
 =over 4
@@ -13233,7 +13182,8 @@ Memory, CPU, Snooping, Signals, State Changes
 
 =item DESCRIPTION
 
-blessed EXPR, dualvar NUM, STRING, isweak EXPR, reftype EXPR, weaken REF
+blessed EXPR, dualvar NUM, STRING, isweak EXPR, readonly SCALAR, reftype
+EXPR, tainted EXPR, weaken REF
 
 =item COPYRIGHT
 
@@ -13995,10 +13945,16 @@ $floating_seconds [, $interval_floating_seconds ] ), getitimer ( $which )
 
 =item Date Comparisons
 
+=item YYYY-MM-DDThh:mm:ss
+
+=item Week Number
+
 =item Global Overriding
 
 =back
 
+=item SEE ALSO
+
 =item AUTHOR
 
 =over 4