getOptions Perl() entre mayúsculas y minúsculas

Question

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

Cuando llamo a este script con -r qwe opción, $list se actualiza a 1, que no es lo que espero.

¿Cómo puedo hacer que GetOpt distinga entre mayúsculas y minúsculas?

Answer 1

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

Answer 2

también permiten la agrupación de correcciones también:

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