Show the doc file, not the temp file.

p4raw-id: //depot/perl@6803

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++