setuid script changed

[ittay.dror]

Hi,

I have the following script:
#!/usr/bin/perl -w

while($line = <>){
if($line =~ /^ENDMDL/){
print $line;
exit(0);
}
print $line;
}

simple right?

and it works with 'cat <somefile> | <script>' (meaning, it prints the
lines from 'somefile')

now i do 'chmod a+s <script>'

now when i run as in the above, perl complains 'setuid script changed',
and the script doesn't run. meaning, nothing is printed to the screen.

please help,
thanx,
ittay

 

[Martin Kissner]

Hi,

I have the following script:
#!/usr/bin/perl -w

while($line = <>){
if($line =~ /^ENDMDL/){
print $line;
exit(0);
}
print $line;
}

simple right?

and it works with 'cat <somefile> | <script>' (meaning, it prints the
lines from 'somefile')

now i do 'chmod a+s <script>'

now when i run as in the above, perl complains 'setuid script changed',
and the script doesn't run. meaning, nothing is printed to the screen.

AFAIK many shells don't allow SUID for scripts.
I have never needed a Perl SUID Skript, but I have read, that you could
do this with perlsuid.

HTH
martin