From f3260bf1a240854b4766f9aa531c00604c3da16f Mon Sep 17 00:00:00 2001
From: "John L. Allen" <allen@grumman.com>
Date: Thu, 16 Jul 1998 07:43:54 -0400
Subject: perlbug does not report usage on invalid flags

	Message-ID: <Pine.SOL.3.91.980716113018.14617A-100000@gateway.grumman.com>

p4raw-id: //depot/perl@1595
---
 utils/perlbug.PL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index b3d9a7fd41..589e7e69b4 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -155,7 +155,7 @@ sub Init {
     $Is_MSWin32 = $^O eq 'MSWin32';
     $Is_VMS = $^O eq 'VMS';
 
-    getopts("dhva:s:b:f:F:r:e:SCc:to:n:");
+    if (!getopts("dhva:s:b:f:F:r:e:SCc:to:n:")) { Help(); exit; };
 
     # This comment is needed to notify metaconfig that we are
     # using the $perladmin, $cf_by, and $cf_time definitions.
-- 
cgit v1.2.1