Re: [jamdb-user] case insensitve

[Marc S. <mar...@li...>]

* Misha P schrieb am 30.12.02 um 06:00 Uhr:
> 
> Hi Marc
> 
> I noticed that too many files are not making it into
> jamdb - found that they all end on "MP3" (vs "mp3").
> 
> 
> --- jamdb-update.orig   Sun Dec 29 23:50:10 2002
> +++ jamdb-update        Sun Dec 29 23:57:50 2002
> @@ -756,8 +756,8 @@
>    sub found_file {
>      my $file = $File::Find::name;
>  
> -    # the file has to be a regular file, called
> *.mp3, readable
> -    if (($file =~ /^.*\.mp3\z/s) && (-r $file) && (-f
> $file)) {
> +    # the file has to be a regular file, called *.mp3
> or *.MP3, readable
> +    if (($file =~ /^.*\.[Mm][Pp]3\z/s) && (-r $file)
> && (-f $file)) {
>        $count++;
>        # value of the hash is the modification time
>        $result{$file} = (stat($file))[9];
> 


Hi Misha!

Thanks for the patch. I have committed it to cvs. Note that .mP3 and
.Mp3 files will be seen as well...

-Marc
-- 
+------------------------------------------------------------------+
| --> http://www.links2linux.de <-- Jetzt mit neuen Features!      |
|                                   wie z.B. [EasyLink]            |
+---Registered-Linux-User-#136487------------http://counter.li.org +