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

[dougm]

dougm       02/05/21 09:59:02

  Modified:    lib/Apache Build.pm
  Log:
  add ap_prefix_is_source_tree method
  
  Revision  Changes    Path
  1.89      +9 -2      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.88
  retrieving revision 1.89
  diff -u -r1.88 -r1.89
  --- Build.pm  21 May 2002 16:49:53 -0000      1.88
  +++ Build.pm  21 May 2002 16:59:02 -0000      1.89
  @@ -68,6 +68,14 @@
       return '';
   }
   
  +sub ap_prefix_is_source_tree {
  +    my $self = shift;
  +
  +    my $prefix = $self->{MP_AP_PREFIX};
  +
  +    -d $prefix and -e "$prefix/CHANGES";
  +}
  +
   sub apxs {
       my $self = shift;
   
  @@ -1049,8 +1057,7 @@
   
       push @inc, $self->mp_include_dir;
   
  -    my $prefix = $self->{MP_AP_PREFIX};
  -    if (-d $prefix and not -e "$prefix/CHANGES") {
  +    unless ($self->ap_prefix_is_source_tree) {
           my $ainc = $self->apxs('-q' => 'INCLUDEDIR');
           if (-d $ainc) {
               push @inc, $ainc;