From 0368aeb7d18289b47d82fcc46be4f2ba0d79fec9 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 4 Feb 1999 15:59:53 +0000
Subject: [PATCH]  * bug that lead to never close the redir file

---
 ide/text/fpredir.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ide/text/fpredir.pas b/ide/text/fpredir.pas
index f492956c40..e5b745dd43 100644
--- a/ide/text/fpredir.pas
+++ b/ide/text/fpredir.pas
@@ -166,6 +166,7 @@ function ChangeRedir(Const Redir : String; AppendToFile : Boolean) : Boolean;
 {$endif UseDUP}
       ChangeRedir:=True;
 {$endif}
+     RedirChanged:=True;
   end;
 
 function ChangeErrorRedir(Const Redir : String; AppendToFile : Boolean) : Boolean;
@@ -201,6 +202,7 @@ function ChangeErrorRedir(Const Redir : String; AppendToFile : Boolean) : Boolea
 {$endif UseDUP}
       ChangeErrorRedir:=True;
 {$endif}
+     RedirErrorChanged:=True;
   end;
 
 {............................................................................}
@@ -300,7 +302,7 @@ Begin
   IOStatus:=0;
 {$ifdef in_dos}
   if RedirStdOut<>'' then
-    RedirChanged:=ChangeRedir(RedirStdOut,false);
+    ChangeRedir(RedirStdOut,false);
   if RedirStdErr<>'stderr' then
     RedirErrorChanged:=ChangeErrorRedir(RedirStdErr,false);
   DosExecute(ProgName,ComLine);