fix grep suffix case insensitive

2021-05-08 00:18:56 +02:00
parent 1da1ed3ca1
commit d1695a111a
1 changed files with 1 additions and 1 deletions
--- a/UnitCsvReceiverSmart.pl
+++ b/UnitCsvReceiverSmart.pl
@@ -94,7 +94,7 @@ while ( my $line = $tail->GetLine() ) {
        $trfile = "/home/" . $truser . $trfile;

        if (
-            ( grep( /^$suffix$/, @ext ) )
+            ( grep( /^$suffix$/i, @ext ) )
            and ( $filename =~
                   m/^(\d\d_\d\d\d\d_|)(DT\d\d\d\d|LOC\d\d\d\d|GD\d\d\d\d)$/i
                or $filename =~ m/^G201_ID\d\d\d\d_DT\d\d\d\d_\d*$/i