From 079b947cd6d05857a754f17c1ec74256dfe76de8 Mon Sep 17 00:00:00 2001
From: Axel Burri <axel@tty0.ch>
Date: Tue, 10 May 2016 15:50:33 +0200
Subject: [PATCH] btrbk: add function WARN_ONCE

---
 btrbk | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/btrbk b/btrbk
index 87a14b1..3b09d99 100755
--- a/btrbk
+++ b/btrbk
@@ -212,6 +212,7 @@ my $current_transaction;
 my @transaction_log;
 my %config_override;
 my @tm_now;  # current localtime ( sec, min, hour, mday, mon, year, wday, yday, isdst )
+my %warn_once;
 
 
 $SIG{__DIE__} = sub {
@@ -282,6 +283,12 @@ sub INFO  { my $t = shift; print STDERR "$t\n" if($loglevel >= 2);  }
 sub WARN  { my $t = shift; print STDERR "WARNING: $t\n" if($loglevel >= 1);  }
 sub ERROR { my $t = shift; print STDERR "ERROR: $t\n";  }
 
+sub WARN_ONCE {
+  my $t = shift;
+  if($warn_once{$t}) { DEBUG("WARN AGAIN: " . $t); }
+  else { $warn_once{$t} = 1; WARN($t); }
+}
+
 sub VINFO {
   return undef unless($do_dumper);
   my $vinfo = shift; my $t = shift || "vinfo"; my $maxdepth = shift // 2;