From 75c3d27d95dd84b8d8cb5e12ca7837a6276de262 Mon Sep 17 00:00:00 2001
From: short <>
Date: Fri, 28 Jun 2002 22:40:12 +0000
Subject: [PATCH] Fixed extraction of archives w/non-lowercase extensions

---
 bin/exx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/exx b/bin/exx
index 91c67ba..1c87db0 100755
--- 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};
-- 
1.8.3.1