cvsweb (3:3.0.6-7) 10_483442_fix_perl_510_test_failure.patch

Summary

 cvsweb.cgi |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

    
download this patch

Patch contents

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 '';
 }