Perl GetOptions（）区分大小写

Question

GetOptions(
    "r|repo=s"       =>   \$repo,
    "R|list-repos"   =>   \$list,
);

当我使用-r qwe选项调用此脚本时，$list更新为1，这不是我所期望的。

如何使GetOpt区分大小写？

Answer 1

use Getopt::Long qw(:config no_ignore_case);

Answer 2

同时启用捆绑功能也可以修复它：

use Getopt::Long  qw(:config bundling);