-x $datei schlaegt fehl

30/05/2008 - 15:46 von Daniel Leidert | Report spam
x-post nach de.comp.lang.perl.misc und dclp.cgi - bitte fup selbstàndig
setzen (je nachdem wo es eher passt)

Hi,

Ich habe ein Problem mit einem CGI-Skript (cvsweb). In diesem gibt es
folgende Funktion:

sub search_path($)
{
my ($command) = @_;
for my $d (@command_path) {
my $cmd = catfile($d, $command);
return $cmd if (-x $cmd && !-d _);
}
return '';
}

@command_path enthàlt eine Liste von Verzeichnissen (àhnlich PATH) und
als Argument wird der Name eines Befehls übergeben. Aus irgendwelchen mir
nicht erklàrbaren Umstànden schlàgt der Test

-x $cmd

seit Perl 5.10 fehl. Im Gegensatz dazu ist aber -X erfolgreich. Reelle und
effektive UID und GID sind aber gleich (Nutzer/Gruppe, mit der der
Webserver làuft). Die Kommandos sind natürlich alle ausführbar (w+x).
Ein banaler Test, ob -x überhaupt funktioniert, war erfolgreich, so dass
kein generelles Problem mit dem Test vorliegt.

System ist ein Debian Sid mit Apache 2 und mod_perl2. Mit Perl 5.8
funktioniert alles.

Im Moment bin ich mit meinem Latein am Ende. Ideen? Hab ich ein Brett vorm
Kopf und übersehe etwas wesentliches?

MfG Daniel
http://www.wgdd.de & http://debian.wgdd.de
Usenet-FAQ http://www.afaik.de/usenet/faq/ & http://got.to/quote
de.sci.chemie http://www.dsc-faq.de & http://www.chemie-webverzeichnis.de
de.comp.security.*-FAQs http://www.linkblock.de
 

Lesen sie die antworten

#1 Daniel Leidert
30/05/2008 - 23:15 | Warnen spam
Daniel Leidert schrieb:

Ich habe ein Problem mit einem CGI-Skript (cvsweb). In diesem gibt es
folgende Funktion:

sub search_path($)
{
my ($command) = @_;
for my $d (@command_path) {
my $cmd = catfile($d, $command);
return $cmd if (-x $cmd && !-d _);
}
return '';
}

@command_path enthàlt eine Liste von Verzeichnissen (àhnlich PATH) und
als Argument wird der Name eines Befehls übergeben. Aus irgendwelchen
mir nicht erklàrbaren Umstànden schlàgt der Test

-x $cmd

seit Perl 5.10 fehl.



Es ist ein Fehler in Perl, der erst nach der Veröffentlichung von 5.10
entdeckt wurde: http://rt.perl.org/rt3/Public/Bug/D...tml?idI003

Vielen Dank an Niko Tyni.

MfG Daniel

Ähnliche fragen