From ff819c25e22c6b3fa5af4fa7032e2ecfeaeafa83 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Fri, 24 Nov 2023 06:19:21 +0100
Subject: [PATCH] No space before first word when it is REJECTed

Cosmetic bug fix
---
 revbank | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/revbank b/revbank
index cde8e16..2462928 100755
--- a/revbank
+++ b/revbank
@@ -17,7 +17,7 @@ use RevBank::Global;
 use RevBank::Messages;
 use RevBank::Cart;
 
-our $VERSION = "4.2.2";
+our $VERSION = "4.2.4";
 our %HELP1 = (
     "abort" => "Abort the current transaction",
 );
@@ -81,11 +81,11 @@ sub prompt($prompt, $plugins, $completions) {
     });
 
     if ($retry) {
-        my $trailing = "@{ pop @retry }";
-        my $rejected = pop @retry;
-        my $accepted = "@retry";
-        $readline->insert_text("$accepted $rejected $trailing");
-        $readline->Attribs->{point} = 1 + length $accepted;
+        my @trailing = @{ pop @retry };
+        my @rejected = pop @retry;
+        my @accepted = @retry;
+        $readline->insert_text(join " ", @accepted, @rejected, @trailing);
+        $readline->Attribs->{point} = @accepted ? 1 + length "@accepted" : 0;
         @retry = ();
         $retry = 0;
     }