Trouble with setuid

[Matthias Urlichs]

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 at smurf.sub.org -- urlichs at smurf.ira.uka.de
Humboldtstrasse 7 - 7500 Karlsruhe 1 - FRG -- +49+721+621127(Voice)/621227(PEP)