perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/lib/Apache Build.pm
Date Sun, 21 Oct 2001 02:58:33 GMT
dougm       01/10/20 19:58:33

  Modified:    lib/Apache Build.pm
  Log:
  default ld, ar, etc to Config.pm values if MM did not define them
  
  Revision  Changes    Path
  1.57      +3 -3      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.56
  retrieving revision 1.57
  diff -u -r1.56 -r1.57
  --- Build.pm	2001/10/21 02:55:37	1.56
  +++ Build.pm	2001/10/21 02:58:33	1.57
  @@ -723,10 +723,10 @@
       my $mm = bless {}, 'MM';
       $mm->init_others;
   
  -    for (qw(RM_F MV LD AR)) {
  -        my $val = $mm->{$_};
  +    for (qw(rm_f mv ld ar)) {
  +        my $val = $mm->{"\U$_"};
           $val =~ s/\(($mm_replace)\)/(MODPERL_\U$perl_config_pm_alias{$1})/g;
  -        print $fh $self->canon_make_attr($_ => $val);
  +        print $fh $self->canon_make_attr($_ => $val || $Config{$_});
       }
   }
   
  
  
  

Mime
View raw message