From: short <> Date: Fri, 28 Jun 2002 22:40:12 +0000 (+0000) Subject: Fixed extraction of archives w/non-lowercase extensions X-Git-Tag: bp_liverpm~123 X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=commitdiff_plain;h=75c3d27d95dd84b8d8cb5e12ca7837a6276de262 Fixed extraction of archives w/non-lowercase extensions --- 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};