From 99154a4b6253a1b4aeb6c9d24abc1f1f6698bad5 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Fri, 24 Nov 2023 06:22:30 +0100
Subject: [PATCH] Show deprecation notice for unbalanced entries

---
 lib/RevBank/Cart/Entry.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/RevBank/Cart/Entry.pm b/lib/RevBank/Cart/Entry.pm
index f9cd416..ffac774 100644
--- a/lib/RevBank/Cart/Entry.pm
+++ b/lib/RevBank/Cart/Entry.pm
@@ -241,9 +241,11 @@ sub sanity_check($self) {
                 @contras
                 ? "sum of entry with contras ($sum) != 0.00"
                 : "transaction has no contras"
-            ) . ". This will probably be a fatal error in a future version of revbank.\n"
+            ) . ". This will be a fatal error in a future version of revbank.\n"
             . "The unbalanced entry is:\n" . join("\n", $self->as_printable)
-        )
+        );
+
+        warn "$self->{caller} has created an unbalanced entry, which is deprecated. Support for unbalanced entries will be removed in a future version of RevBank.\n";
     }
 
     return 1;