2008-06-30 16:36 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

* contrib/hbtip/tests/tiptest.prg ! Remove strings as arrays access. Thanks Lorenzo.
2008-06-30 14:37:31 +00:00
parent 6f5534ae6a
commit b61a54168a
2 changed files with 5 additions and 1 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
   2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */

+2008-06-30 16:36 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+   * contrib/hbtip/tests/tiptest.prg
+     ! Remove strings as arrays access. Thanks Lorenzo.
+
 2008-06-30 14:46 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
   * include/hbextern.ch
     + New inet functions added.
--- a/harbour/contrib/hbtip/tests/tiptest.prg
+++ b/harbour/contrib/hbtip/tests/tiptest.prg
@@ -102,7 +102,7 @@ PROCEDURE MAIN( cUrl, cFile )
         @5,5 SAY "Connection status: " + oClient:cReply
      ENDIF

-      IF .not. Empty( cFile ) .and. cFile[1] == '+'
+      IF .not. Empty( cFile ) .and. Left( cFile, 1 ) == '+'
         cFile := Substr( cFile, 2 )
         bWrite := .T.
      ENDIF