cvs commit: modperl-2.0/lib/ModPerl Config.pm

[stas]

stas        01/09/29 08:38:37

  Modified:    lib/ModPerl Config.pm
  Log:
  - make the config report as narrow as possible, to prevent ugly wraps in
  report emails.
  
  Revision  Changes    Path
  1.5       +7 -1      modperl-2.0/lib/ModPerl/Config.pm
  
  Index: Config.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Config.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- Config.pm 2001/06/16 12:35:23     1.4
  +++ Config.pm 2001/09/29 15:38:37     1.5
  @@ -13,10 +13,16 @@
   
       $cfg .= "*** using $INC{'Apache/BuildConfig.pm'}\n";
   
  +    # the widest key length
  +    my $max_len = 0;
  +    for (map {length} grep /^MP_/, keys %$build_config) {
  +        $max_len = $_ if $_ > $max_len;
  +    }
  +
       # mod_perl opts
       $cfg .= "*** Makefile.PL options:\n";
       $cfg .= join '',
  -        map {sprintf "    %-20s => %s\n", $_, $build_config->{$_}}
  +        map {sprintf "  %-${max_len}s => %s\n", $_, $build_config->{$_}}
               grep /^MP_/, sort keys %$build_config;
   
       my $command = '';