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);
$extension = $_[0];
$extension =~ s/.*\.(.*?)$/$1/;
return $extension;
return lc($extension);
}
#-----------------------------------------