From eac7f1fcbfc9c7feb65266db0a347455533f3067 Mon Sep 17 00:00:00 2001 From: Ron Pinkas Date: Fri, 10 Aug 2001 03:16:06 +0000 Subject: [PATCH] 2001-08-09 20:45 UTC-0800 Ron Pinkas * contrib/dot/pp.prg * Corrected logic for closing ppo output file. --- harbour/ChangeLog | 4 ++++ harbour/contrib/dot/pp.prg | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 2e7436b500..aed85efd3f 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2001-08-09 20:45 UTC-0800 Ron Pinkas + * contrib/dot/pp.prg + * Corrected logic for closing ppo output file. + 2001-08-09 17:45 UTC-0800 Ron Pinkas * source/compiler/harbour.c * Minor correction to handling of HB_FS_FIRST diff --git a/harbour/contrib/dot/pp.prg b/harbour/contrib/dot/pp.prg index 91c81e8f37..4d731f588b 100644 --- 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