ich erhalte bei Perl-Dateien, die das suid Bit gesetzt haben, folgende Fehlermeldung:
Woran kann das liegen?Can't do setuid (suidperl cannot exec perl)
Code: Alles auswählen
ls -l /usr/bin/*perl*
-rwxr-xr-x 1 root root 536 2009-01-01 16:56 /usr/bin/cpanp-run-perl
-rwxr-xr-x 1 root root 4.0K 2008-07-09 22:16 /usr/bin/dh_perl
-rwxr-xr-x 1 root root 24K 2009-01-01 16:56 /usr/bin/find2perl
-rwxr-xr-x 1 root root 6.7K 2009-01-01 16:57 /usr/bin/perl
-rwxr-xr-x 1 root root 38K 2009-01-01 16:56 /usr/bin/perlbug
-rwxr-xr-x 1 root root 125 2009-01-01 16:57 /usr/bin/perldoc
-rwxr-xr-x 1 root root 12K 2009-01-01 16:56 /usr/bin/perlivp
-rwsr-xr-x 1 root root 69K 2009-01-01 16:57 /usr/bin/sperl5.10.0
lrwxrwxrwx 1 root root 4 2009-07-18 12:08 /usr/bin/suidperl -> perl
-rwxr-xr-x 1 root root 6.1K 2008-04-04 15:02 /usr/bin/update-perl-sax-parsers
Code: Alles auswählen
ls -l test.pl
-rwsr-x--- 1 root kay 70 2009-07-18 12:31 test.pl
Code: Alles auswählen
id kay
uid=1023(kay) gid=1000(kay) groups=1000(kay)
Code: Alles auswählen
cat test.pl
#!/usr/bin/perl
use warnings;
use strict;
print "test\n";
exit(0);
Code: Alles auswählen
su -c "./test.pl" kay
Can't do setuid (suidperl cannot exec perl)