From 04cf7280101bd007b04c5839fef73cf8451ea69b Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Fri, 17 May 2024 22:48:18 +0200
Subject: [PATCH] Inflation

Roughly 4%
---
 lib/RevBank/Messages.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/RevBank/Messages.pm b/lib/RevBank/Messages.pm
index 254b35e..09ff0bf 100644
--- a/lib/RevBank/Messages.pm
+++ b/lib/RevBank/Messages.pm
@@ -64,7 +64,7 @@ sub hook_user_balance($class, $username, $old, $delta, $new, @) {
     my $sign = $delta->cents >= 0 ? '+' : '-';
     my $rood = $new->cents < 0 ? '31;' : '';
     my $abs  = $delta->abs;
-    my $warn = $new->cents < -2200 ? " \e[5;1m(!!)\e[0m" : "";
+    my $warn = $new->cents < -2300 ? " \e[5;1m(!!)\e[0m" : "";
 
     $_ = $_->string("+") for $old, $new;
     printf "New balance for $username: $old $sign $abs = \e[${rood}1m$new\e[0m$warn\n",