author | oheimb |
Mon, 16 Dec 1996 15:45:02 +0100 | |
changeset 2423 | 4550426cf8f7 |
parent 2347 | a42c1b835fb3 |
child 2579 | 4af1023fc6bf |
permissions | -rwxr-xr-x |
2347 | 1 |
#!/bin/bash -norc |
2306 | 2 |
# |
2307 | 3 |
# $Id$ |
4 |
# |
|
2347 | 5 |
# ucat - uninterruptible cat. |
2307 | 6 |
# |
2306 | 7 |
# NOTE: If perl is unavailable we simply fall back on normal cat! |
2307 | 8 |
|
2306 | 9 |
|
10 |
PERL=$(type -path perl) |
|
11 |
||
12 |
if [ -z "$PERL" ] |
|
13 |
then |
|
14 |
exec cat "$@" |
|
15 |
else |
|
16 |
exec $PERL -e '$SIG{INT} = "IGNORE"; $| = 1; while (<ARGV>) {print;}' "$@" |
|
17 |
fi |