From 9be35ea9820d4d62457b74e0edf39b2c089ec541 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Fri, 16 Jul 2010 12:52:30 +0000
Subject: [PATCH] 2010-07-16 14:51 UTC+0200 Viktor Szakats (harbour.01
 syenar.hu)   * utils/hbrun/hbrun.prg     ! Fixed to show error in GTCGI mode
 instead of going into       an infinite loop.

---
 harbour/ChangeLog             | 5 +++++
 harbour/utils/hbrun/hbrun.prg | 5 +++++
 2 files changed, 10 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 72d8b02e38..3f90b11a96 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,11 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2010-07-16 14:51 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * utils/hbrun/hbrun.prg
+    ! Fixed to show error in GTCGI mode instead of going into
+      an infinite loop.
+
 2010-07-16 13:55 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * utils/hbtest/hbtest.prg
   * utils/hbtest/rt_hvm.prg
diff --git a/harbour/utils/hbrun/hbrun.prg b/harbour/utils/hbrun/hbrun.prg
index f629db8c1b..3ed6889fda 100644
--- a/harbour/utils/hbrun/hbrun.prg
+++ b/harbour/utils/hbrun/hbrun.prg
@@ -185,6 +185,11 @@ STATIC PROCEDURE hbrun_Prompt( cCommand )
    LOCAL bKeyUP, bKeyDown, bKeyIns, bKeyResize
    LOCAL lResize := .F.
 
+   IF hb_gtVersion( 0 ) == "CGI"
+      OutErr( "hbrun: Error: Interactive session not possible with GTCGI terminal driver" + hb_eol() )
+      RETURN
+   ENDIF
+
    CLEAR SCREEN
    SET SCOREBOARD OFF
    GetList := {}