Changeset 93 for trunk/NewView/CmdLineParameterUnit.pas

Timestamp:

Mar 10, 2007, 8:04:39 PM (18 years ago)

Author:

RBRi

Message:

Ups, debug detection fix

File:

• trunk/NewView/CmdLineParameterUnit.pas (modified) (1 diff)

trunk/NewView/CmdLineParameterUnit.pas

@@ -172 +172 @@
     tmpSwitch : String;
     tmpOwnHelpFileName : String;
+    tmpEnvDebug : String;
   begin
     // first adjust logging
     debugEnabled := false;
-    if GetEnv(ENV_DEBUG) = '' then
+    tmpEnvDebug := GetEnv(ENV_DEBUG);
+
+    if tmpEnvDebug <> '' then
     begin
       debugEnabled := true;
-    end
-    else
-    begin
-      SetLogAspects(GetEnv(ENV_DEBUG));
+      SetLogAspects(tmpEnvDebug);
     end;