diff options
| author | Steve Hay <SteveHay@planit.com> | 2003-03-20 11:55:01 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-04-02 20:41:46 +0000 |
| commit | 5b3c99c010f99810b63aaa04e000fb2c8547942a (patch) | |
| tree | 0afe748a27734311cd29c94a19f45787799b9896 | |
| parent | 5fc52bc68f8bca292cb1880662c8edef5b0c54a8 (diff) | |
| download | perl-5b3c99c010f99810b63aaa04e000fb2c8547942a.tar.gz | |
Fix missing functions when splitting perlfunc
Message-ID: <3E79AC15.80307@uk.radan.com>
p4raw-id: //depot/perl@19140
| -rwxr-xr-x | installhtml | 2 | ||||
| -rw-r--r-- | lib/Pod/Functions.pm | 5 | ||||
| -rw-r--r-- | pod/perlfunc.pod | 6 | ||||
| -rwxr-xr-x | pod/splitpod | 3 |
4 files changed, 10 insertions, 6 deletions
diff --git a/installhtml b/installhtml index 9884f27d3f..919346a86b 100755 --- a/installhtml +++ b/installhtml @@ -412,7 +412,7 @@ sub split_on_item { die "$0: error changing to directory $podroot/$dirname: $!\n"; die "$splitter not found. Use '-splitpod dir' option.\n" unless -f $splitter; - system("perl", $splitter, "../$filename") && + system($^X, $splitter, "../$filename") && warn "$0: error running '$splitter ../$filename'" ." from $podroot/$dirname"; } diff --git a/lib/Pod/Functions.pm b/lib/Pod/Functions.pm index 99727b7fe9..e185381bc4 100644 --- a/lib/Pod/Functions.pm +++ b/lib/Pod/Functions.pm @@ -284,12 +284,13 @@ qq/STRING/ String doubly quote a string quotemeta Regexp quote regular expression magic characters qw/STRING/ LIST quote a list of words qx/STRING/ Process backquote quote a string -qr/PATTERN/ Regexp Compile pattern +qr/STRING/ Regexp Compile pattern rand Math retrieve the next pseudorandom number read I/O,Binary fixed-length buffered input from a filehandle readdir I/O get a directory from a directory handle readline I/O fetch a record from a file readlink File determine where a symbolic link is pointing +readpipe Process execute a system command and collect standard output recv Socket receive a message over a Socket redo Flow start this loop iteration over again ref Objects find out the type of thing being referenced @@ -341,6 +342,7 @@ sub Flow declare a subroutine, possibly anonymously substr String get or alter a portion of a stirng symlink File create a symbolic link to a file syscall I/O,Binary execute an arbitrary system call +sysopen File open a file, pipe, or descriptor sysread I/O,Binary fixed-length unbuffered input from a filehandle sysseek I/O,Binary position I/O pointer on handle used with sysread and syswrite system Process run a separate program @@ -348,6 +350,7 @@ syswrite I/O,Binary fixed-length unbuffered output to a filehandle tell I/O get current seekpointer on a filehandle telldir I/O get current seekpointer on a directory handle tie Objects bind a variable to an object class +tied Objects get a reference to the object underlying a tied variable time Time return number of seconds since 1970 times Process,Time return elapsed time for self and child processes tr/// String transliterate a string diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod index d3eb002d2e..efe01dfa75 100644 --- a/pod/perlfunc.pod +++ b/pod/perlfunc.pod @@ -246,11 +246,11 @@ L<perlport> and other available platform-specific documentation. =over 8 -=item I<-X> FILEHANDLE +=item -X FILEHANDLE -=item I<-X> EXPR +=item -X EXPR -=item I<-X> +=item -X A file test, where X is one of the letters listed below. This unary operator takes one argument, either a filename or a filehandle, and diff --git a/pod/splitpod b/pod/splitpod index fd38e51acf..0e936337e3 100755 --- a/pod/splitpod +++ b/pod/splitpod @@ -10,7 +10,8 @@ while (<>) { next unless /^=(?!cut)/ .. /^=cut/; - if (s/=item (\S+)/$1/) { + if (/=item (\S+)/ and $1 ne '*') { + s/=item //; #$cur = "POSIX::" . $1; $next{$cur} = $1; $cur = $1; |