Fixed extraction of archives w/non-lowercase extensions

diff --git a/bin/exx b/bin/exx
index 91c67ba..1c87db0 100755 (executable)
--- a/bin/exx
+++ b/bin/exx
@@ -38,7 +38,7 @@ for my $fname (@ARGV) {
        $parsed[3] or die "Extension not found for archive: $fname";
        my($path,$base,$ext)=@parsed[0,1,3];
        my($pathname)=($parsed[2] eq "=" ? "$path$base" : $fname);
-       my($cmdtry,$cmd)=($ext);
+       my($cmdtry,$cmd)=(lc $ext);
        do {
                $cmd=$cmdtry;
                $cmdtry=FORMATS->{$cmdtry};