perlbug -ok shouldn't prompt (from Paul Moore

<Paul.Moore@uk.origin-it.com>)

p4raw-id: //depot/perl@5869

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index f6d3dc0..208da36 100644 (file)
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -276,6 +276,8 @@ EOF
            $subject = ($::opt_n ? 'Not ' : '')
                    . "OK: perl $perl_version ${patch_tags}on"
                    ." $::Config{'archname'} $::Config{'osvers'} $subject";
+           $category = "install";
+           $severity = "none";
            $ok = 1;
        } else {
            Help();