tag 290336 + patch upstream
thanks

With the help from Marc Brockschmidt I was able to solve the problem. 
File::find::find doesn't follow symlinks. The attached patch solves this 
problem by changing the way enc2xs uses File::find::find.

Please apply and submit upstream.

Sven.
--- /usr/bin/enc2xs.orig        2005-01-16 17:27:07.000000000 +0100
+++ /usr/bin/enc2xs     2005-01-16 17:29:38.000000000 +0100
@@ -915,7 +915,7 @@
        push @inc, $inc unless $inc eq '.'; #skip current dir
     }
     File::Find::find(
-            sub {
+            { wanted => sub {
                 my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
                     $atime,$mtime,$ctime,$blksize,$blocks)
                     = lstat($_) or return;
@@ -925,7 +925,7 @@
                     $e2x_dir{$File::Find::dir} ||= $mtime;
                 }
                 return;
-            }, @inc);
+            }, follow => 1 }, @inc);
     warn join("\n", keys %e2x_dir), "\n";
     for my $d (sort {$e2x_dir{$a} <=> $e2x_dir{$b}} keys %e2x_dir){
        $_E2X = $d;

Reply via email to