# HG changeset patch
# User wenzelm
# Date 855043190 -3600
# Node ID 4af1023fc6bf12fcc594b54e83ca13c64eeeda84
# Parent  cc768a16ef659c2221a32a47e8d35b95cb5259fe
now uses tee -i instead of perl;

diff -r cc768a16ef65 -r 4af1023fc6bf lib/scripts/ucat
--- a/lib/scripts/ucat	Tue Feb 04 08:59:17 1997 +0100
+++ b/lib/scripts/ucat	Tue Feb 04 08:59:50 1997 +0100
@@ -3,15 +3,5 @@
 # $Id$
 #
 # ucat - uninterruptible cat.
-#
-# NOTE: If perl is unavailable we simply fall back on normal cat!
 
-
-PERL=$(type -path perl)
-
-if [ -z "$PERL" ]
-then
-  exec cat "$@"
-else
-  exec $PERL -e '$SIG{INT} = "IGNORE"; $| = 1; while (<ARGV>) {print;}' "$@"
-fi
+exec tee -i /dev/null "$@"