bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

No space before first word when it is REJECTed

Browse source 
Cosmetic bug fix
This commit is contained in:
Juerd Waalboer 2023-11-24 06:19:21 +01:00
parent dbe75efe7f
commit ff819c25e2
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
revbank
View file

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