Re: discarding root privileges in suid perl

[miquels@cistron.nl (Miquel van Smoorenburg)]

In article <84lmvpg3bz.fsf@snoopy.apana.org.au>,
Brian May  <bam@debian.org> wrote:
>According to "man perlsec", line 300+, the following code should
>destroy extra privileges in a suid root perl script:
>
>      $EUID = $UID;    
>      $EGID = $GID;    #      initgroups() also called!

You need to 'use English' for the $EUID etc variables to work.
Otherwise use $>, $<, etc. See 'man perlvar'

Mike.