This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perlbug does not report usage on invalid flags
authorJohn L. Allen <allen@grumman.com>
Thu, 16 Jul 1998 11:43:54 +0000 (07:43 -0400)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 21 Jul 1998 04:07:44 +0000 (04:07 +0000)
Message-ID: <Pine.SOL.3.91.980716113018.14617A-100000@gateway.grumman.com>

p4raw-id: //depot/perl@1595

utils/perlbug.PL

index b3d9a7f..589e7e6 100644 (file)
@@ -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.