From e3b054272d4e3a14f1b42066b4f1774b4169db8e Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Sun, 28 Apr 2024 03:42:00 +0200
Subject: [PATCH] v6.1.4: fix bug (0.00 balance account not usable)
Introduced in f2d09b4d
---
lib/RevBank/Users.pm | 2 +-
revbank | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/RevBank/Users.pm b/lib/RevBank/Users.pm
index 31f3c4d..227b6ce 100644
--- a/lib/RevBank/Users.pm
+++ b/lib/RevBank/Users.pm
@@ -134,7 +134,7 @@ sub assert_user($username) {
my $user = $users->{ lc $username };
if ($user) {
- Carp::croak("Account $username can't be used") if not balance $username;
+ Carp::croak("Account $username can't be used") if not defined balance $username;
return $user->[0];
}
diff --git a/revbank b/revbank
index 2ea3379..16390df 100755
--- a/revbank
+++ b/revbank
@@ -16,7 +16,7 @@ use RevBank::Messages;
use RevBank::Cart;
use RevBank::Prompt;
-our $VERSION = "6.1.3";
+our $VERSION = "6.1.4";
our %HELP1 = (
"abort" => "Abort the current transaction",
);