[comp.lang.perl] making suidperl shutup

tchrist@convex.com (Tom Christiansen) (11/14/90)

I live on a system where a suid or sgid script won't 
execute even without proper privs.  So I've got a wrapper
like this:

    #!/bin/sh
    exec perl -S `basename $0`.real ${1+"$@"}

And I expect it to call suidperl for me because the .real version
is sgid kmem.  This it will do, but only if I hardcode the path:

    #!/bin/sh
    exec perl $HOME/scripts/vmscan.real ${1+"$@"}

otherwise I get this complaint:

    Args must match #! line at /mnt/tchrist/scripts/vmscan.real line 1.

So what am I doing wrong here?

thanks,

--tom