This is patch.2b1g to perl5.002beta1.

cd to your perl source directory, and type
	patch -p1 -N < patch.2b1g

This patch is just my packaging of Tom's documentation patches
he released as patch.2b1g.

Patch and enjoy,

    Andy Dougherty		doughera@lafcol.lafayette.edu
    Dept. of Physics
    Lafayette College, Easton PA 18042

1 files changed, 10 insertions, 4 deletions

diff --git a/installman b/installman
index bc36ca6ac1..aab0c22fc6 100755
--- a/installman
+++ b/installman
@@ -74,7 +74,7 @@ sub runpod2man {
     # yet. (The user may have set the $install* Configure variables 
     # to point to some temporary home, from which the executable gets
     # installed by occult means.)
-    $pod2man = "../perl -I ../lib ../pod/pod2man";
+    $pod2man = "../perl -I ../lib ../pod/pod2man --section=$manext --official";
 
     &makedir($mandir);
     # Make a list of all the .pm and .pod files in the directory.  We will
@@ -89,8 +89,13 @@ sub runpod2man {
 	$manpage =~ s#\.p(m|od)$##;
 	$manpage =~ s#/#::#g;
 	$manpage = "${mandir}/${manpage}.${manext}";
-	# Print $release $patchlevel stuff?  or should pod2man do that?
 	&cmd("$pod2man $mod > $manpage");
+	if (-z $manpage) {
+	    print STDERR "unlink $manpage\n";
+	    unless ($notify) {
+		unlink($manpage) || warn "cannot unlink $manpage: $!";
+	    } 
+	} 
     }
     chdir "$builddir" || die "Unable to cd back to $builddir directory!\n$!\n";
 }
@@ -116,9 +121,10 @@ sub cmd {
     local($cmd) = @_;
     print STDERR "  $cmd\n";
     unless ($notify) {
-	system $cmd;
-	warn "Command failed!!!\n" if $?;
+	fork ? wait : exec $cmd;
+	warn "Command failed!!\n" if $?;
     }
+    return $? != 0;
 }
 
 sub link {