From 04a038f6b00d9e532d7c4f43a5d8c104c8d4c3e7 Mon Sep 17 00:00:00 2001
From: Matt Blenkinsop <matt.blenkinsop@ptfs-europe.com>
Date: Thu, 23 May 2024 09:41:22 +0000
Subject: [PATCH] Bug 36935: Add a 'die' message to file parsing

Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
---
 Koha/BackgroundJob/ImportKBARTFile.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Koha/BackgroundJob/ImportKBARTFile.pm b/Koha/BackgroundJob/ImportKBARTFile.pm
index b1da1bb06f..890a3c926a 100644
--- a/Koha/BackgroundJob/ImportKBARTFile.pm
+++ b/Koha/BackgroundJob/ImportKBARTFile.pm
@@ -229,7 +229,7 @@ sub read_file {
     my $delimiter    = $file->{filename} =~ /\.tsv$/    ? "\t"                                   : ",";
     my $quote_char   = $file->{filename} =~ /\.tsv$/    ? "\""                                   : "\"";
 
-    open my $fh, "<", \$file_content or die;
+    open my $fh, "<", \$file_content or die "Could not open file $file->{filename}: $!";
     my $csv = Text::CSV_XS->new(
         {
             sep_char           => $delimiter,
-- 
2.39.5