From 734e6405dcc1dea1ff0dc5a0fb13c80fe305b8d3 Mon Sep 17 00:00:00 2001
From: Jan Kratochvil <jan@jankratochvil.net>
Date: Mon, 21 Jun 2021 14:15:09 +0200
Subject: [PATCH] upsc-log-diff: +$line

---
 bin/upsc-log-diff | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/bin/upsc-log-diff b/bin/upsc-log-diff
index 6c21015..7ca44e3 100755
--- a/bin/upsc-log-diff
+++ b/bin/upsc-log-diff
@@ -12,7 +12,9 @@ my $F="/var/log/upsc.log";
 open F,$F or die "$F: $!";
 my $prev;
 my $this="";
+my $line;
 while (<F>) {
+  $line=$.;
   chomp;
   if (!/^$/) {
     $this.="$_\n";
@@ -30,8 +32,8 @@ while (<F>) {
     local *TD;
     my $td="diff -u $ta $tb|";
     open TD,$td or die "$td: $!";
-    <TD>=~/^\Q--- / or die $_;
-    <TD>=~/^\Q+++ / or die $_;
+    <TD>=~/^\Q--- / or die "line $line: $_";
+    <TD>=~/^\Q+++ / or die "line $line: $_";
     while (<TD>) {
       next if /^[@ ]/;
       print;
-- 
1.8.3.1