# HG changeset patch
# User wenzelm
# Date 849699049 -3600
# Node ID 0aadfaf8557adf06fad7cd2a1882992e8c14644b
# Parent  35f78d6c4faa979abb369d32d78ee27127c57255
ucat - uninterruptible cat
NOTE: If perl is unavailable we simply fall back on normal cat!

diff -r 35f78d6c4faa -r 0aadfaf8557a lib/scripts/ucat
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/scripts/ucat	Wed Dec 04 12:30:49 1996 +0100
@@ -0,0 +1,15 @@
+#!/bin/bash
+#
+# ucat - uninterruptible cat
+# NOTE: If perl is unavailable we simply fall back on normal cat!
+#
+# $Id$
+
+PERL=$(type -path perl)
+
+if [ -z "$PERL" ]
+then
+  exec cat "$@"
+else
+  exec $PERL -e '$SIG{INT} = "IGNORE"; $| = 1; while (<ARGV>) {print;}' "$@"
+fi