Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!newstop!texsun!convex!convex.com!tchrist
From: tchrist@convex.com (Tom Christiansen)
Newsgroups: comp.lang.perl
Subject: making suidperl shutup
Message-ID: <108703@convex.convex.com>
Date: 14 Nov 90 04:47:33 GMT
Sender: news@convex.com
Reply-To: tchrist@convex.com (Tom Christiansen)
Organization: Convex Computer Corp, Richardson, TX
Lines: 22

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