my $path=shift;
my $ext=($path=~/.*\.(.*)/)[0];
return undef unless($ext);
+ my $me=shift;
$ext=lc($ext);
if($ext eq "mp3")
{
}
else
{
- print("Unknown extension: $ext\n");
+ print("$me: $path: Unknown extension: $ext\n");
return undef;
}
return $self;