[CMI.PM] Getopt::Long UPPERCASING EVERYTHING (fwd)

[Jeff Helgesen]

>     my ($var, $value) = split(/\s*=\s*/, uc $_, 2);

I'm just a hack, but aren't you uppercasing the line with the uc here before
it's fed into $value?