stas 2004/08/05 17:21:22
Modified: perl-framework/Apache-Test/lib/Apache TestRun.pm Log: improved debugging comments Revision Changes Path 1.173 +8 -5 httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm Index: TestRun.pm =================================================================== RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v retrieving revision 1.172 retrieving revision 1.173 diff -u -u -r1.172 -r1.173 --- TestRun.pm 15 Jul 2004 20:33:57 -0000 1.172 +++ TestRun.pm 6 Aug 2004 00:21:22 -0000 1.173 @@ -1427,7 +1427,8 @@ my $self = shift; if ($ENV{APACHE_TEST_NO_STICKY_PREFERENCES}) { - debug "skipping save of custom config data"; + debug "APACHE_TEST_NO_STICKY_PREFERENCES=1 => " . + "skipping save of custom config data"; return; } @@ -1585,18 +1586,20 @@ sub custom_config_load { if ($ENV{APACHE_TEST_NO_STICKY_PREFERENCES}) { - debug "skipping load of custom config data"; + debug "APACHE_TEST_NO_STICKY_PREFERENCES=1 => " . + "skipping load of custom config data"; return; } - debug "trying to load custom config data"; - return if $custom_config_loaded; if (my $custom_config_path = custom_config_path()) { - debug "loading custom config path '$custom_config_path'"; + debug "loading custom config data from: '$custom_config_path'"; $custom_config_loaded++; require $custom_config_path; + } + else { + debug "no custom config data was loaded"; } }