Browse Source

* correction of a previously introduced bug

Tomas Hajny 24 years ago
parent
commit
443374521c
1 changed files with 6 additions and 8 deletions
  1. 6 8
      fcl/os2/ezcgi.inc

+ 6 - 8
fcl/os2/ezcgi.inc

@@ -23,21 +23,19 @@ function GetEnv (var EnvVar: AnsiString): AnsiString;
 var P: PChar;
 var P: PChar;
 
 
 begin
 begin
- if DosScanEnv (PChar (EnvVar), P) = 0 then GetEnv := P else GetEnv := nil;
+ if DosScanEnv (PChar (EnvVar), P) = 0 then GetEnv := P else GetEnv := '';
 end;
 end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.5  2001-01-28 18:40:35  hajny
+  Revision 1.6  2001-02-26 04:57:38  hajny
+    * correction of a previously introduced bug
+
+  Revision 1.1.2.2  2001/01/28 18:41:07  hajny
     * error checking added
     * error checking added
 
 
-  Revision 1.4  2000/10/28 16:56:02  hajny
+  Revision 1.1.2.1  2000/10/28 16:56:43  hajny
     + real (ansistring) implementation
     + real (ansistring) implementation
 
 
-  Revision 1.3  2000/08/25 17:33:44  hajny
-    * Made compilable again (missing bracket at the begin of logs)
-
-  Revision 1.2  2000/07/13 11:33:01  michael
-  + removed logs
  
  
 }
 }