stas 2002/06/04 05:40:53
Modified: lib/Apache compat.pm
t/response/TestApache compat2.pm
. Changes
Log:
added compat for Apache::log_error()
Revision Changes Path
1.61 +4 -0 modperl-2.0/lib/Apache/compat.pm
Index: compat.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/Apache/compat.pm,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -r1.60 -r1.61
--- compat.pm 4 Jun 2002 00:44:23 -0000 1.60
+++ compat.pm 4 Jun 2002 12:40:53 -0000 1.61
@@ -104,6 +104,10 @@
exists_config_define(@_);
}
+sub log_error {
+ Apache->server->log_error(@_);
+}
+
package Apache::Constants;
use Apache::Const ();
1.17 +4 -1 modperl-2.0/t/response/TestApache/compat2.pm
Index: compat2.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestApache/compat2.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- compat2.pm 4 Jun 2002 00:44:23 -0000 1.16
+++ compat2.pm 4 Jun 2002 12:40:53 -0000 1.17
@@ -24,7 +24,7 @@
sub handler {
my $r = shift;
- plan $r, tests => 47;
+ plan $r, tests => 48;
$r->send_http_header('text/plain');
@@ -246,6 +246,9 @@
t_cmp(0, Apache::Util::validate_password("mguod", $hash));
$r->post_connection(sub { OK });
+
+ Apache::log_error("testing Apache::log_error");
+ ok 1;
OK;
}
1.18 +2 -0 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- Changes 2 Jun 2002 03:25:53 -0000 1.17
+++ Changes 4 Jun 2002 12:40:53 -0000 1.18
@@ -10,6 +10,8 @@
=item 1.99_03-dev
+added compat for Apache::log_error [Stas Bekman]
+
=item 1.99_02 - June 1, 2002
pass the PATH and TZ environment variables at startup by default as 1.xx did