cvs commit: modperl-2.0/lib/Apache Build.pm

[stas]

stas        2003/08/13 15:47:50

  Modified:    lib/Apache Build.pm
  Log:
  i like pizza, but i don't like spagetti logic
  
  Revision  Changes    Path
  1.139     +2 -0      modperl-2.0/lib/Apache/Build.pm
  
  Index: Build.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/Build.pm,v
  retrieving revision 1.138
  retrieving revision 1.139
  diff -u -r1.138 -r1.139
  --- Build.pm  13 Aug 2003 22:38:04 -0000      1.138
  +++ Build.pm  13 Aug 2003 22:47:50 -0000      1.139
  @@ -79,6 +79,8 @@
       return $self->{httpd_is_source_tree}
           if exists $self->{httpd_is_source_tree};
   
  +    # XXX: this $self->{MP_AP_PREFIX} || $self->{dir} is totally confusing
  +    # we should have a single point of reference (refactoring is needed!)
       my $prefix = $self->{MP_AP_PREFIX} || $self->{dir};
       $self->{httpd_is_source_tree} = 
           defined $prefix && -d $prefix && -e "$prefix/CHANGES";