Author: stas
Date: Sat Jan 22 12:59:26 2005
New Revision: 126052

URL: http://svn.apache.org/viewcvs?view=rev&rev=126052
Log:
fix a bug in Apache::Build::dir: If the right directory isn't found in
the for loop $dir still contains a > value, so the ||= has no
effect. [Nick Wellnhofer <[EMAIL PROTECTED]>]

Modified:
   perl/modperl/trunk/Changes
   perl/modperl/trunk/lib/Apache/Build.pm

Modified: perl/modperl/trunk/Changes
Url: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/Changes?view=diff&rev=126052&p1=perl/modperl/trunk/Changes&r1=126051&p2=perl/modperl/trunk/Changes&r2=126052
==============================================================================
--- perl/modperl/trunk/Changes  (original)
+++ perl/modperl/trunk/Changes  Sat Jan 22 12:59:26 2005
@@ -12,6 +12,12 @@
 
 =item 1.999_22
 
+fix a bug in Apache::Build::dir: If the right directory isn't found in
+the for loop $dir still contains a > value, so the ||= has no
+effect. [Nick Wellnhofer <[EMAIL PROTECTED]>]
+
+
+
 =item 1.999_21 - January 22, 2005
 
 PerlPostConfigRequire was trying to detect missing files early on,

Modified: perl/modperl/trunk/lib/Apache/Build.pm
Url: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache/Build.pm?view=diff&rev=126052&p1=perl/modperl/trunk/lib/Apache/Build.pm&r1=126051&p2=perl/modperl/trunk/lib/Apache/Build.pm&r2=126052
==============================================================================
--- perl/modperl/trunk/lib/Apache/Build.pm      (original)
+++ perl/modperl/trunk/lib/Apache/Build.pm      Sat Jan 22 12:59:26 2005
@@ -907,9 +907,12 @@
     if (IS_MOD_PERL_BUILD) {
         my $build = $self->build_config;
 
-        if ($dir = $build->{'dir'}) {
-            for ($dir, "../$dir", "../../$dir") {
-                last if -d ($dir = $_);
+        if (my $bdir = $build->{'dir'}) {
+            for ($bdir, "../$bdir", "../../$bdir") {
+                if (-d $_) {
+                    $dir = $_;
+                    last;
+                }
             }
         }
     }

Reply via email to