| author | paulson |
| Tue, 10 Dec 1996 15:08:57 +0100 | |
| changeset 2371 | c5dc6f8b385b |
| 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 |