fixed a bug thanks to Michael Henry

This commit is contained in:
JT Smith 2002-12-05 04:06:19 +00:00
parent a6827a6e45
commit 33a342259c

View file

@ -52,7 +52,7 @@ sub getType {
my ($extension); my ($extension);
$extension = $_[0]; $extension = $_[0];
$extension =~ s/.*\.(.*?)$/$1/; $extension =~ s/.*\.(.*?)$/$1/;
return $extension; return lc($extension);
} }
#----------------------------------------- #-----------------------------------------