From 4e50824898aa33c3be09c46a4a6b0a7d1abfee74 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Thu, 12 May 2011 08:03:55 +0000 Subject: [PATCH] 2011-05-12 10:03 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * contrib/xhb/tcgi.prg ! = -> == (it changes behavior, though I consider previous one as buggy) --- harbour/ChangeLog | 10 +++++++--- harbour/contrib/xhb/tcgi.prg | 2 +- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 19ab3ed145..cfdb09c657 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,11 @@ The license applies to all entries newer than 2009-04-28. */ +2011-05-12 10:03 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + * contrib/xhb/tcgi.prg + ! = -> == + (it changes behavior, though I consider previous one as buggy) + 2011-05-12 09:34 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * src/pp/ppcore.c * hb_xgrab( nSize ) -> hb_xgrab( nSize * sizeof( char ) ) @@ -264,10 +269,9 @@ * File() -> hb_FileExists() ; TOFIX: - - it's impossible for me to decide what the intent is in these files with ' = ' operator, - please fix them: + - files with ' = ' operator: * contrib/hbide/idetags.prg [DONE] - * contrib/xhb/tcgi.prg + * contrib/xhb/tcgi.prg [DONE] - these also need to be fixed: * contrib/hbwin/legacy.prg:298: xRet := ( ::OleValue = xArg ) /* NOTE: Intentionally using '=' operator. */ diff --git a/harbour/contrib/xhb/tcgi.prg b/harbour/contrib/xhb/tcgi.prg index 79c7200196..965e89335a 100644 --- a/harbour/contrib/xhb/tcgi.prg +++ b/harbour/contrib/xhb/tcgi.prg @@ -209,7 +209,7 @@ METHOD Field( cQueryName ) CLASS TCgi DEFAULT cQueryName TO "" nRet := Ascan( ::aQueryFields, ; - { | x | Upper( x[ 1 ] ) = Upper( cQueryName ) } ) + { | x | Upper( x[ 1 ] ) == Upper( cQueryName ) } ) IF nRet > 0 cRet := ::aQueryFields[ nRet, 2 ]