cvs commit: modperl-2.0/lib/ModPerl Config.pm
stas01/12/10 22:27:47
Modified:lib/ModPerl Config.pm
Log:
- use the existing configuration in as_string
Revision ChangesPath
1.7 +1 -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.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- Config.pm 2001/12/11 05:09:43 1.6
+++ Config.pm 2001/12/11 06:27:47 1.7
@@ -28,7 +28,7 @@
my $command = '';
# httpd opts
-my $test_config = Apache::TestConfig->new;
+my $test_config = Apache::TestConfig->new({thaw=>1});
if (my $httpd = $test_config->{vars}->{httpd}) {
$command = "$httpd -V";
$cfg .= "\n\n*** $command\n";
cvs commit: modperl-2.0/lib/ModPerl Config.pm
stas01/12/10 21:09:43
Modified:buildbugreport.pl config.pl
lib/ModPerl Config.pm
Log:
- s/config_as_str/as_string/
- pod fix
Revision ChangesPath
1.2 +1 -1 modperl-2.0/build/bugreport.pl
Index: bugreport.pl
===
RCS file: /home/cvs/modperl-2.0/build/bugreport.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- bugreport.pl 2001/04/20 18:08:06 1.1
+++ bugreport.pl 2001/12/11 05:09:43 1.2
@@ -6,7 +6,7 @@
use ModPerl::Config ();
-my $env = ModPerl::Config::config_as_str();
+my $env = ModPerl::Config::as_string();
{
local $/ = undef;
my $template = ;
1.3 +1 -1 modperl-2.0/build/config.pl
Index: config.pl
===
RCS file: /home/cvs/modperl-2.0/build/config.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- config.pl 2001/04/20 18:08:06 1.2
+++ config.pl 2001/12/11 05:09:43 1.3
@@ -6,4 +6,4 @@
use ModPerl::Config ();
-print ModPerl::Config::config_as_str();
+print ModPerl::Config::as_string();
1.6 +4 -4 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.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Config.pm 2001/09/29 15:38:37 1.5
+++ Config.pm 2001/12/11 05:09:43 1.6
@@ -6,7 +6,7 @@
use Apache::Build ();
use Apache::TestConfig ();
-sub config_as_str{
+sub as_string {
my $build_config = Apache::Build->build_config;
my $cfg = '';
@@ -52,11 +52,11 @@
=pod
-=head1 NAME - ModPerl::Config
+=head1 NAME
-=head1 DESCRIPTION
+ModPerl::Config - Functions to retrieve mod_perl specific env information.
-Functions to retrieve mod_perl specific env information.
+=head1 DESCRIPTION
=cut
cvs commit: modperl-2.0/lib/ModPerl Config.pm
stas01/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 ChangesPath
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 = '';
cvs commit: modperl-2.0/lib/ModPerl Config.pm
dougm 01/04/24 20:14:44
Modified:lib/ModPerl Config.pm
Log:
want httpd -V not -v
Revision ChangesPath
1.3 +1 -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.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- Config.pm 2001/04/20 18:25:45 1.2
+++ Config.pm 2001/04/25 03:14:44 1.3
@@ -20,7 +20,7 @@
my $test_config = Apache::TestConfig->new;
my $httpd = $test_config->{vars}->{httpd};
-my $command = "$httpd -v";
+my $command = "$httpd -V";
$cfg .= "\n\n*** $command\n";
$cfg .= qx{$command};
cvs commit: modperl-2.0/lib/ModPerl Config.pm
sbekman 01/04/20 11:25:49
Modified:lib/ModPerl Config.pm
Log:
use strict
Revision ChangesPath
1.2 +2 -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.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- Config.pm 2001/04/20 18:08:03 1.1
+++ Config.pm 2001/04/20 18:25:45 1.2
@@ -1,5 +1,6 @@
package ModPerl::Config;
+use strict;
use lib qw(Apache-Test/lib);
use Apache::Build ();
@@ -19,7 +20,7 @@
my $test_config = Apache::TestConfig->new;
my $httpd = $test_config->{vars}->{httpd};
-$command = "$httpd -v";
+my $command = "$httpd -v";
$cfg .= "\n\n*** $command\n";
$cfg .= qx{$command};
