From 09dec3613e7af60a084704eb2e80c5cf4ecd1b09 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Sun, 23 Feb 2014 18:01:30 +0100
Subject: [PATCH] Sentinel test: minor fixes to --pause-on-error.

---
 tests/sentinel.tcl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/tests/sentinel.tcl b/tests/sentinel.tcl
index f06ade07..669bc830 100644
--- a/tests/sentinel.tcl
+++ b/tests/sentinel.tcl
@@ -124,11 +124,13 @@ proc main {} {
 # on error in order to give the developer a chance to understand more about
 # the error condition while the instances are still running.
 proc pause_on_error {} {
+    puts ""
     puts [colorstr yellow "*** Please inspect the error now ***"]
-    puts "\nType \"continue\" to resume the test."
-    while {[gets stdin] ne {continue}} {
-        puts "> "
+    puts "\nType \"continue\" to resume the test.\n"
+    while 1 {
+        puts -nonewline "> "
         flush stdout
+        if {[gets stdin] eq {continue}} break
     }
 }