diff options
| author | Lukas Mai <l.mai@web.de> | 2017-06-06 23:01:35 +0200 |
|---|---|---|
| committer | Lukas Mai <l.mai@web.de> | 2017-06-06 23:01:35 +0200 |
| commit | bb4830e68bcd02036b9e04bea8476c8f4583e3ba (patch) | |
| tree | 9a8c90af2f12d947e8ebaf0dcd23cdc38bd68d61 /pod | |
| parent | d0d6d4ceec7b551df4a20f5eea6133da85eba732 (diff) | |
| download | perl-bb4830e68bcd02036b9e04bea8476c8f4583e3ba.tar.gz | |
buildtoc: explicitly accept -q (RT #131520)
Normally the default behavior of Getopt::Long is to enable auto_abbrev,
which allows '--quiet' to be spelled as '-q', but not when
POSIXLY_CORRECT is set:
$ POSIXLY_CORRECT=1 make
...
./perl -Ilib -I. -f pod/buildtoc -q
Unknown option: q
pod/buildtoc: Usage: pod/buildtoc [--quiet]
make: *** [makefile:405: pod/perltoc.pod] Error 255
Diffstat (limited to 'pod')
| -rw-r--r-- | pod/buildtoc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/buildtoc b/pod/buildtoc index 75bdcf271a..8837f8e388 100644 --- a/pod/buildtoc +++ b/pod/buildtoc @@ -18,7 +18,7 @@ BEGIN { } die "$0: Usage: $0 [--quiet]\n" - unless GetOptions (quiet => \$Quiet) && !@ARGV; + unless GetOptions ('q|quiet' => \$Quiet) && !@ARGV; my $state = get_pod_metadata(0, sub { warn @_ if @_ }, 'pod/perltoc.pod'); |