Perl GetOptions() case sensitivity

Question

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

When I call this script with -r qwe option, $list is updated to 1, which is not what I expect.

How can I make GetOpt case sensitive?

Answer 1

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

Answer 2

Also enabling bundling fixes it too:

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