Can't do setuid (suidperl cannot exec perl)

Vom einfachen Programm zum fertigen Debian-Paket, Fragen rund um Programmiersprachen, Scripting und Lizenzierung.
Antworten
Benutzeravatar
Twilo
Beiträge: 255
Registriert: 21.04.2006 00:59:40
Wohnort: Berlin

Can't do setuid (suidperl cannot exec perl)

Beitrag von Twilo » 18.07.2009 13:17:16

Hallo,

ich erhalte bei Perl-Dateien, die das suid Bit gesetzt haben, folgende Fehlermeldung:
Can't do setuid (suidperl cannot exec perl)
Woran kann das liegen?

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)

Benutzeravatar
Twilo
Beiträge: 255
Registriert: 21.04.2006 00:59:40
Wohnort: Berlin

Re: Can't do setuid (suidperl cannot exec perl)

Beitrag von Twilo » 20.07.2009 22:09:15

Hallo,

warum auch immer, hat die Datei /usr/bin/perl5.10.0 gefehlt

mfg
Twilo

Antworten