Group :: Development/Tcl
RPM: expect
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: expect-5.39-fixcat.patch
Download
Download
--- expect-5.39/fixcat.orig 1998-10-15 01:53:23 +0300
+++ expect-5.39/fixcat 2004-02-21 18:08:50 +0200
@@ -8,14 +8,5 @@
# If this file is sitting in an architecture-specific library directory,
# then it serves as a marker that your /bin/cat buffers by default.
-# test for when catting to/from files
-log_user 0
-spawn -open [open "|cat" "r+"]
-send "\r"
-expect "\r" {exit 1}
+exit 0
-# test for when catting to real tty
-#log_user 0
-#spawn /bin/cat
-#send "\r"
-#expect "\r\n\r\n" {exit 1}