FIX: raw stdin input missing the last character when using pipes

resolved: Oldes/Rebol-issues#2613

src/os/posix/dev-stdio.c

@@ -313,7 +313,7 @@ static void Close_StdIO_Local(void)
  //puts("Read_IO");
 
  if (Std_Inp >= 0) {
-
+ if (!Term_IO) CLR_FLAG(req->modes, RDM_READ_LINE);
  // Perform a processed read or a raw read?
 #ifndef HAS_SMART_CONSOLE
  if (Term_IO && GET_FLAG(req->modes, RDM_READ_LINE)) 

src/tests/units/call-test.r3

@@ -112,8 +112,6 @@ rebol-cmd: func[cmd][
  --assert 1 = rebol-cmd {--do "prin 2 1 / 0"}
  --assert "2" = out-buffer
  --assert not none? find err-buffer "Math error"
-
-
 ===end-group===
 
 
@@ -140,4 +138,19 @@ rebol-cmd: func[cmd][
  try [delete %units/files/launched.txt]
 ===end-group===
 
+
+===start-group=== "Raw input"
+ --test-- "Pipe input"
+ ;@@ https://github.com/Oldes/Rebol-issues/issues/2613
+ --assert all [
+ 0 = rebol-cmd rejoin [
+ {--do "print 123" | }
+ to-local-file system/options/boot 
+ { --do "probe read system/ports/input"} 
+ ]
+ out-buffer == "#{3132330A}^/"
+ err-buffer == ""
+ ]
+===end-group===
+
 ~~~end-file~~~