diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2001-01-05 06:02:13 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-05 22:31:17 +0000 |
| commit | fd49642cbd8ecdebdc55e2ae754e108e1a21efcd (patch) | |
| tree | fed9b1194aa9de6a642c5b5f8d97befa53e42957 /utils | |
| parent | 8504afb7cc07119c2ef6ff860615c2648628c732 (diff) | |
| download | perl-fd49642cbd8ecdebdc55e2ae754e108e1a21efcd.tar.gz | |
[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
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perlbug.PL | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index d323913eeb..c4289f8d3a 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"; |