From 35100c59ef27efce662d276e4b2eb81bc2e63af6 Mon Sep 17 00:00:00 2001
From: RevBar <bar@regulator.space.revspace.nl>
Date: Fri, 10 Jun 2011 01:23:04 +0200
Subject: [PATCH] Tab completion for yes/no ;)

---
 revbank | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/revbank b/revbank
index 359f61a..97e1f0d 100755
--- a/revbank
+++ b/revbank
@@ -524,7 +524,10 @@ LINE: for (;;) {
             if ($deposit) {
                 print "Input '$element' not recognised.\n";
                 for (;;) {
-                    my $yesno = prompt "Add new account for user '$element'? ";
+                    my $yesno = prompt(
+                        "Add new account for user '$element'? ",
+                        [ qw/yes no/ ]  # tab completion ;)
+                    );
                     if ($yesno =~ /^(?:y|yes)$/) {
                         create_account($element);
                         $user = $element;