* correction of a previously introduced bug

fcl/os2/ezcgi.inc

@@ -23,12 +23,15 @@ function GetEnv (var EnvVar: AnsiString): AnsiString;
 var P: PChar;
 
 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;
 
 {
   $Log$
-  Revision 1.1.2.2  2001-01-28 18:41:07  hajny
+  Revision 1.1.2.3  2001-02-26 04:59:22  hajny
+    * correction of a previously introduced bug
+
+  Revision 1.1.2.2  2001/01/28 18:41:07  hajny
     * error checking added
 
   Revision 1.1.2.1  2000/10/28 16:56:43  hajny