Re: suidperl

[Pavel Mihaylov <bin@bash.info>]

На 26 август 2002 г. (понеделник), в 12.23 часа, Viktor Vislobokov писа:
> Вопрос такой. Есть perl'овый скрипт, начинающийся на
> 
> #!/usr/bin/suidperl -U
> 
> на самом скрипте стоит +s разумеется.
> 
>   По идее он должен выполнятся с правами root'а однако
> все как-то не так.
>    Да, например syslog я смотреть могу, но во при
> попытке выполнить скажем rm -rf /home/vasya мне
> говорит permission denied, а при попытке выполнить
> useradd говорит can't lock passwd file.
> 
>    Насколько я знаю такая же проблема есть в C-шных
> программках и лечится она запуском seteuid, но
> как мне это сделать в Perl?

$< = $>

смотри также perldoc perlvar секцию о $< и $>