diff options
| author | John L. Allen <allen@grumman.com> | 1998-07-16 07:43:54 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-21 04:07:44 +0000 |
| commit | f3260bf1a240854b4766f9aa531c00604c3da16f (patch) | |
| tree | 83f123774d179120a36a1b4be5583b985b81de0e /utils | |
| parent | f5ea50d0fbacaa380b3e728318a4838cc686d90b (diff) | |
| download | perl-f3260bf1a240854b4766f9aa531c00604c3da16f.tar.gz | |
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
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perlbug.PL | 2 |
1 files changed, 1 insertions, 1 deletions
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. |