Xref: utzoo comp.lang.perl:2219 comp.unix.aux:2578
Path: utzoo!utgpu!news-server.csri.toronto.edu!clyde.concordia.ca!uunet!samsung!zaphod.mps.ohio-state.edu!usc!snorkelwacker!ira.uka.de!smurf!urlichs
From: urlichs@smurf.sub.org (Matthias Urlichs)
Newsgroups: comp.lang.perl,comp.unix.aux
Subject: Trouble with setuid
Message-ID: <^-i2f2.-42@smurf.sub.org>
Date: 26 Aug 90 20:34:36 GMT
Organization: Smurf-O-Box Karlsruhe, FRG
Lines: 23

It seems that A/UX 2.0(seeding final) doesn't honor the setuid bits when
invoking programs via a script.

This bothers me because Perl wants
#!/usr/local/bin/suidperl
in the first line.

If I say
% suidperl script
then the scruipt runs perfectly well. On the other hand,
% script
(with script of mode 06755) won't do anything except "can't suid" or
something, which here means that geteuid() returns non-zero.

Does anyone know a reasonable workaround?
The only way I've seen is an additional indirection, as in
 #!/bin/sh
 exec /usr/lcoal/bin/suidperl script.real

Not an ideal solution..?
-- 
Matthias Urlichs -- urlichs@smurf.sub.org -- urlichs@smurf.ira.uka.de
Humboldtstrasse 7 - 7500 Karlsruhe 1 - FRG -- +49+721+621127(Voice)/621227(PEP)