1 # $OpenBSD: agent-ptrace.sh,v 1.1 2002/12/09 15:38:30 markus Exp $
2 # Placed in the Public Domain.
4 tid="disallow agent ptrace attach"
6 if [ -x `which uname 2>&1` ]; then
8 Linux|HP-UX|SunOS|NetBSD|AIX)
9 echo "skipped (not supported)"
15 if [ ! -x `which gdb 2>&1` ]; then
16 echo "skipped (gdb not found)"
21 eval `${SSHAGENT} -s` > /dev/null
24 fail "could not start ssh-agent: exit code $r"
26 # ls -l ${SSH_AUTH_SOCK}
27 gdb ${SSHAGENT} ${SSH_AGENT_PID} > ${OBJ}/gdb.out 2>&1 << EOF
31 fail "gdb failed: exit code $?"
33 grep 'ptrace: Operation not permitted.' >/dev/null ${OBJ}/gdb.out
37 fail "ptrace succeeded?: exit code $r"
41 ${SSHAGENT} -k > /dev/null