Author: Daniel Leidert (dale) <daniel.leidert@wgdd.de>
Description: Because of a bug in Perl 5.10, the test -x fails in search_path().
Niko Tyni further mentioned, that the stat result cache '_' and
'use filetest qw(access)' don't mix well together. For this reason
the only way to fix it IMO is to use -X instead atm.
As soon as #483734 is fixed, this patch can be dropped and the
perl-dependency must/should be adjusted.
<URL:http://rt.perl.org/rt3/Public/Bug/Display.html?id=49003>
<URL:http://bugs.debian.org/483442>
<URL:http://bugs.debian.org/483734>
<URL:http://lists.debian.org/debian-perl/2008/05/msg00117.html>
<MID:6aaeotF3637srU1@mid.dfncis.de>
--- a/cvsweb.cgi
+++ b/cvsweb.cgi
@@ -1719,7 +1719,7 @@
my ($command) = @_;
for my $d (@command_path) {
my $cmd = catfile($d, $command);
- return $cmd if (-x $cmd && !-d _);
+ return $cmd if (-X $cmd && !-d $cmd);
}
return '';
}