From d1695a111ab8f89419d03e5279d882ecb2da0172 Mon Sep 17 00:00:00 2001
From: Alessandro Battilani <alessandro.battilani@gmail.com>
Date: Sat, 8 May 2021 00:18:56 +0200
Subject: [PATCH] fix grep suffix case insensitive

---
 UnitCsvReceiverSmart.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/UnitCsvReceiverSmart.pl b/UnitCsvReceiverSmart.pl
index 3a3f122..bb64f15 100644
--- 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