- my $file=ID3FS::AudioFile->new($filename);
- next unless($file);
- my $changes=0;
- $changes = do_deletes($file);
- $changes += do_adds($file);
- if($changes)
- {
- do_write($file);
- }
- else
+ File::Find::find( {wanted => \&wanted, follow => 1, no_chdir => 1}, $path);
+}
+
+sub wanted
+{
+ my $ext='';
+ if(/.*\.(.*)/) { $ext=lc($1); }
+ if(-f && scalar(grep({ $ext eq lc($_);} @extensions)))