Changeset 286 for obsdata/trunk

Timestamp:

11/11/06 22:18:18 (18 years ago)

Author:

nanardon

Message:

• make filename matching case unsensitive because file can come from DOS

File:

• obsdata/trunk/ObsData/Repository.pm (modified) (2 diffs)

obsdata/trunk/ObsData/Repository.pm

@@ -551 +551 @@
     {
         my $regexp = $self->{obsdata}->getvalue( $datatype, 'match' ) or next;
-        my @data = $datafile =~ /$regexp/;
+        my @data = $datafile =~ /$regexp/i;
         my @dataar = $self->archive_match($datatype);
         my ( $pret, %parg ) =
@@ -578 +578 @@
     my $regexp = $self->{obsdata}->getvalue( $datatype, 'match_archive' )
       or return undef;
-    my @data = $self->{archivefile} =~ /$regexp/;
+    my @data = $self->{archivefile} =~ /$regexp/i;
     return @data;
 }