Avoid case issues in charset normalization

interchange · Oct 5, 2016 · d145294 · d145294
1 parent 7e47540
commit d145294
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Vend/Config.pm b/lib/Vend/Config.pm
@@ -3732,7 +3732,7 @@ sub set_defaults {
     if ( !$ENV{MINIVEND_DISABLE_UTF8} &&
          (my $enc = $C->{Variable}->{MV_HTTP_CHARSET}) ) {
         if (my $norm_enc = Vend::CharSet::validate_encoding($enc)) {
-            if ($norm_enc ne uc($enc)) {
+            if (uc $norm_enc ne uc($enc)) {
                 config_warn("Provided MV_HTTP_CHARSET '$enc' resolved to '$norm_enc'.  Continuing.");
                 $C->{Variable}->{MV_HTTP_CHARSET} = $norm_enc;
             }