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 = '';
