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

@@ -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. */
 

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 ]