From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 24 Aug 2000 14:44:39 +0000 (+0000)
Subject: Show the doc file, not the temp file.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d7d8c5e06c4ee61e3309864e92e682dcb24151ca;p=p5sagit%2Fp5-mst-13.2.git

Show the doc file, not the temp file.

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

diff --git a/installman b/installman
index 8d5ca93..43c3260 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++