From: Jarkko Hietaniemi Date: Wed, 2 May 2001 17:24:47 +0000 (+0000) Subject: perlmodlib tweaks; regen pods. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1fa7ca2533f472688d868610b0745b8fde3528b1;p=p5sagit%2Fp5-mst-13.2.git perlmodlib tweaks; regen pods. p4raw-id: //depot/perl@9963 --- diff --git a/pod/Makefile.SH b/pod/Makefile.SH index 51772f1..a186565 100644 --- 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 --- 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 () { 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 () { } } unless ($foundit) { - warn "$filename missing head1\n"; + warn "$filename missing =head1 NAME (okay if there is respective .pod)\n"; next; } my $title = ; @@ -42,13 +45,12 @@ while () { 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 --- 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 --- 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, B =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, B =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 E71564.1743@CompuServe.COME, Gurusamy Sarathy -Egsar@activestate.comE, Nick Ing-Simmons -Enick@ing-simmons.netE - -=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, B<-s>I, B, BI, +B<-l>, B<-p>, B<-q>, B<-f>I, B<-s>I, B, BI, B, BIB<.>, B<-x>I =item USING B::Deparse AS A MODULE @@ -8622,7 +8547,8 @@ B, B, B =item Extra RECNO Methods B<$X-Epush(list) ;>, B<$value = $X-Epop ;>, B<$X-Eshift>, -B<$X-Eunshift(list) ;>, B<$X-Elength> +B<$X-Eunshift(list) ;>, B<$X-Elength>, B<$X-Esplice(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 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, C, C =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