From 89314732f10e7c0942c767bf35efb6378615bfe1 Mon Sep 17 00:00:00 2001
From: sg <sg>
Date: Tue, 28 Dec 1999 09:38:07 +0000
Subject: [PATCH] * the long version of AssignStream now sets the result value
 to -1 in   _all_ cases when it would fail.

---
 rtl/linux/linux.pp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/rtl/linux/linux.pp b/rtl/linux/linux.pp
index 588cdbbdce..a3b9aa3c85 100644
--- a/rtl/linux/linux.pp
+++ b/rtl/linux/linux.pp
@@ -2495,6 +2495,7 @@ var
   pl: ^LongInt;
 begin
   LinuxError := 0;
+  AssignStream := -1;
 
   // Assign pipes
   AssignPipe(StreamIn, PipeOut);
@@ -2526,7 +2527,6 @@ begin
     Close(PipeErr);
     Close(PipeIn);
     Close(StreamOut);
-    AssignStream := -1;
     exit;
   end;
 
@@ -3817,7 +3817,11 @@ End.
 
 {
   $Log$
-  Revision 1.55  1999-12-08 01:03:54  peter
+  Revision 1.56  1999-12-28 09:38:07  sg
+  * the long version of AssignStream now sets the result value to -1 in
+    _all_ cases when it would fail.
+
+  Revision 1.55  1999/12/08 01:03:54  peter
     * overloaded gettime functions supporting hsec and msec,usec
 
   Revision 1.54  1999/12/01 22:46:59  peter