Tcl Source Code

Artifact 29d0ea96a3e0421b426939e33c2c3c88797923f0:

Attachment "pid.test.diff-u" to ticket [678412ffff] added by andreas_kupries 2003-02-25 06:08:14.

---

--- pid.test.orig	Mon Feb 24 14:57:10 2003
+++ pid.test	Mon Feb 24 14:57:24 2003
@@ -33,7 +33,7 @@
     regexp {(^[0-9]+$)|(^0x[0-9a-fA-F]+$)} [pid]
 } 1
 test pid-1.2 {pid command} {unixOrPc unixExecs} {
-    set f [open [format {| echo foo | cat >%s} $path(test1)] w]
+    set f [open [format {| echo foo | cat {>%s}} $path(test1)] w]
     set pids [pid $f]
     close $f
     catch {removeFile test1}