This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f5ea50d
)
perlbug does not report usage on invalid flags
author
John L. Allen
<allen@grumman.com>
Thu, 16 Jul 1998 11:43:54 +0000
(07:43 -0400)
committer
Gurusamy 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
patch
|
blob
|
blame
|
history
diff --git
a/utils/perlbug.PL
b/utils/perlbug.PL
index
b3d9a7f
..
589e7e6
100644
(file)
--- 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.