author | wenzelm |
Wed, 04 Dec 1996 12:30:49 +0100 | |
changeset 2306 | 0aadfaf8557a |
child 2307 | 508d2a233dbc |
permissions | -rwxr-xr-x |
2306 | 1 |
#!/bin/bash |
2 |
# |
|
3 |
# ucat - uninterruptible cat |
|
4 |
# NOTE: If perl is unavailable we simply fall back on normal cat! |
|
5 |
# |
|
6 |
# $Id$ |
|
7 |
||
8 |
PERL=$(type -path perl) |
|
9 |
||
10 |
if [ -z "$PERL" ] |
|
11 |
then |
|
12 |
exec cat "$@" |
|
13 |
else |
|
14 |
exec $PERL -e '$SIG{INT} = "IGNORE"; $| = 1; while (<ARGV>) {print;}' "$@" |
|
15 |
fi |