* Fixed Marco's fix to make the pipes unit compiling in both branches again

fcl/unix/pipes.inc

@@ -25,12 +25,19 @@ Uses
 Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
 
 begin
+{$ifdef ver1_0}
+  Result := AssignPipe (Inhandle,OutHandle);
+{$else}
   Result := (AssignPipe (Inhandle,OutHandle)<>-1);
+{$endif}
 end;
 
 {
   $Log$
-  Revision 1.6  2003-11-14 11:08:50  marco
+  Revision 1.7  2003-11-22 12:47:07  sg
+  * Fixed Marco's fix to make the pipes unit compiling in both branches again
+
+  Revision 1.6  2003/11/14 11:08:50  marco
    * assignpipe fix
 
   Revision 1.5  2002/09/07 15:15:29  peter