From: Peter Prymmer <PPrymmer@factset.com>
Date: Fri, 5 Jan 2001 14:02:13 +0000 (-0800)
Subject: [patch: perl@8327] have perlbug's Save to File respect -F flag
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fd49642cbd8ecdebdc55e2ae754e108e1a21efcd;p=p5sagit%2Fp5-mst-13.2.git

[patch: perl@8327] have perlbug's Save to File respect -F flag
Message-ID: <Pine.OSF.4.10.10101051357400.28294-100000@aspara.forte.com>

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

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index d323913..c4289f8 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -731,10 +731,11 @@ EOF
 	    chop $action;
 
 	    if ($action =~ /^(f|sa)/i) { # <F>ile/<Sa>ve
-		print "\n\nName of file to save message in [perlbug.rep]: ";
+		my $file_save = $outfile || "perlbug.rep";
+		print "\n\nName of file to save message in [$file_save]: ";
 		my $file = scalar <>;
 		chop $file;
-		$file = "perlbug.rep" if $file eq "";
+		$file = $file_save if $file eq "";
 
 		unless (open(FILE, ">$file")) {
 		    print "\nError opening $file: $!\n\n";