From: Abigail <abigail@abigail.be>
Date: Wed, 16 Jan 2008 18:46:17 +0000 (+0100)
Subject: Don't ask about a module when using -ok
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f5798d0b2034b9dc921c9d100f271ad247a5d59b;p=p5sagit%2Fp5-mst-13.2.git

Don't ask about a module when using -ok
Message-ID: <20080116174617.GA30446@abigail.be>
Date: Wed, 16 Jan 2008 18:46:17 +0100

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

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index c288095..5190439 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -506,7 +506,7 @@ EOF
 	}
     }
     my $report_about_module = '';
-    if ($::HaveCoreList) {
+    if ($::HaveCoreList && !$ok) {
 	paraprint <<EOF;
 Is your report about a Perl module? If yes, enter its name. If not, skip.
 EOF