ignore case for dbf extension

[webpac2] / lib / WebPAC / Input / DBF.pm

diff --git a/lib/WebPAC/Input/DBF.pm b/lib/WebPAC/Input/DBF.pm
index bf6723f..e9578fd 100644 (file)
--- a/lib/WebPAC/Input/DBF.pm
+++ b/lib/WebPAC/Input/DBF.pm
@@ -92,7 +92,7 @@ sub new {
                }
 
                my $mapping_path = $arg->{path};
-               $mapping_path =~ s!^.+/([^/]+)\.dbf!$1.yml!;
+               $mapping_path =~ s!^.+/([^/]+)\.dbf!$1.yml!i;
 
                $log->logdie("mapping file $mapping_path allready exists, aborting.") if ( -e $mapping_path );