From: Steve Hay <SteveHay@planit.com>
Date: Thu, 20 Mar 2003 11:55:01 +0000 (+0000)
Subject: Fix missing functions when splitting perlfunc
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5b3c99c010f99810b63aaa04e000fb2c8547942a;p=p5sagit%2Fp5-mst-13.2.git

Fix missing functions when splitting perlfunc
Message-ID: <3E79AC15.80307@uk.radan.com>

p4raw-id: //depot/perl@19140
---

diff --git a/installhtml b/installhtml
index 9884f27..919346a 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 99727b7..e185381 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 d3eb002..efe01df 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 fd38e51..0e93633 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;