From ff4b7e7c0fe348d02afe835ed5c7855440d0a42d Mon Sep 17 00:00:00 2001
From: Orion Poplawski <orion@nwra.com>
Date: Tue, 30 Aug 2022 11:21:11 -0600
Subject: [PATCH] Output logfile path when aborting parsing a logfile

---
 perl/Amanda/DB/Catalog.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/Amanda/DB/Catalog.pm b/perl/Amanda/DB/Catalog.pm
index e964a5d875..cc3acd71c1 100644
--- a/perl/Amanda/DB/Catalog.pm
+++ b/perl/Amanda/DB/Catalog.pm
@@ -846,7 +846,7 @@ sub get_parts_and_dumps {
 		my $s = $str;
 		my $b_unit;
 		($secs, $b_unit, $kb, $str) = ($str =~ /^\[sec ([-0-9.]+) (kb|bytes) ([-0-9]+).*\] ?(.*)$/)
-		    or die("'$s'");
+		    or die("logfile '$logfile_dir/$logfile': cannot parse '$s'");
 		if ($b_unit eq 'bytes') {
 		    $bytes = $kb;
 		    $kb /= 1024;