summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-08-24 14:44:39 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-08-24 14:44:39 +0000
commitd7d8c5e06c4ee61e3309864e92e682dcb24151ca (patch)
tree0b85634d9fbb2984c546cf5e056a0ef5e72ff24c
parent53350ba1e41618d9801fe73fa438615575cad2f2 (diff)
downloadperl-d7d8c5e06c4ee61e3309864e92e682dcb24151ca.tar.gz
Show the doc file, not the temp file.
p4raw-id: //depot/perl@6803
-rwxr-xr-xinstallman8
1 files changed, 4 insertions, 4 deletions
diff --git a/installman b/installman
index 8d5ca9393e..43c326006e 100755
--- a/installman
+++ b/installman
@@ -150,7 +150,7 @@ sub runpod2man {
}
$tmp = "${mandir}/${manpage}.tmp";
$manpage = "${mandir}/${manpage}.${manext}";
- if (&cmd("$pod2man $mod > $tmp", $tmp) == 0 && !$notify && -s $tmp) {
+ if (&cmd("$pod2man $mod > $tmp") == 0 && !$notify && -s $tmp) {
if (rename($tmp, $manpage)) {
$packlist->{$manpage} = { type => 'file' };
next;
@@ -183,8 +183,8 @@ exit 0;
# Utility subroutines from installperl
sub cmd {
- local($cmd, $tmp) = @_;
- warn $silent ? " $tmp\n" : " $cmd\n";
+ local($cmd) = @_;
+ warn " $cmd\n" unless $cmd;
unless ($notify) {
if ($Config{d_fork}) {
fork ? wait : exec $cmd; # Allow user to ^C out of command.
@@ -215,7 +215,7 @@ sub link {
my($from,$to) = @_;
my($success) = 0;
- warn " ln $from $to\n" unless $silent;
+ warn $silent ? " $to\n" : " ln $from $to\n";
eval {
CORE::link($from, $to)
? $success++