Mailing List Archive

*** perl5.002beta1/installman Mon Nov 6 09:16:43 1995
--- ./installman Sat Dec 9 17:30:47 1995
***************
*** 74,80 ****
# 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";

&makedir($mandir);
# Make a list of all the .pm and .pod files in the directory. We will
--- 74,80 ----
# 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 --section=$manext --official";

&makedir($mandir);
# Make a list of all the .pm and .pod files in the directory. We will
***************
*** 89,96 ****
$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");
}
chdir "$builddir" || die "Unable to cd back to $builddir directory!\n$!\n";
}
--- 89,101 ----
$manpage =~ s#\.p(m|od)$##;
$manpage =~ s#/#::#g;
$manpage = "${mandir}/${manpage}.${manext}";
&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,124 ****
local($cmd) = @_;
print STDERR " $cmd\n";
unless ($notify) {
! system $cmd;
! warn "Command failed!!!\n" if $?;
}
}

sub link {
--- 121,130 ----
local($cmd) = @_;
print STDERR " $cmd\n";
unless ($notify) {
! fork ? wait : exec $cmd;
! warn "Command failed!!\n" if $?;
}
+ return $? != 0;
}

sub link {