2001-08-09 20:45 UTC-0800 Ron Pinkas <ron@profit-master.com>

* contrib/dot/pp.prg * Corrected logic for closing ppo output file.
2001-08-10 03:16:06 +00:00
parent 515035d9fe
commit eac7f1fcbf
2 changed files with 5 additions and 1 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-09 20:45 UTC-0800 Ron Pinkas <ron@profit-master.com>
+   * contrib/dot/pp.prg
+     * Corrected logic for closing ppo output file.
+
 2001-08-09 17:45 UTC-0800 Ron Pinkas <ron@profit-master.com>
   * source/compiler/harbour.c
     * Minor correction to handling of HB_FS_FIRST
--- a/harbour/contrib/dot/pp.prg
+++ b/harbour/contrib/dot/pp.prg
@@ -2520,7 +2520,7 @@ FUNCTION PP_PreProFile( sSource, sPPOExt, bBlanks )
      ENDIF
   ENDIF

-   IF ProcName(2) == ""
+   IF ProcName(1) == "MAIN"
      FClose( hPP )

      IF bCCH