stas 2004/08/11 23:45:53
Modified: t/response/TestAPI conn_util.pm conn_rec.pm
Log:
clean the constants compile lists
Revision Changes Path
1.3 +1 -1 modperl-2.0/t/response/TestAPI/conn_util.pm
Index: conn_util.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/conn_util.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -u -r1.2 -r1.3
--- conn_util.pm 12 Aug 2004 06:44:25 -0000 1.2
+++ conn_util.pm 12 Aug 2004 06:45:53 -0000 1.3
@@ -11,7 +11,7 @@
use Apache::Connection ();
use Apache::Const -compile => qw(OK REMOTE_HOST REMOTE_NAME
- REMOTE_NOLOOKUP REMOTE_DOUBLE_REV CONN_CLOSE);
+ REMOTE_NOLOOKUP REMOTE_DOUBLE_REV);
sub handler {
my $r = shift;
1.13 +1 -2 modperl-2.0/t/response/TestAPI/conn_rec.pm
Index: conn_rec.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/conn_rec.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -u -r1.12 -r1.13
--- conn_rec.pm 12 Aug 2004 06:40:45 -0000 1.12
+++ conn_rec.pm 12 Aug 2004 06:45:53 -0000 1.13
@@ -13,8 +13,7 @@
use Apache::RequestUtil ();
use Apache::Connection ();
-use Apache::Const -compile => qw(OK REMOTE_HOST REMOTE_NAME
- REMOTE_NOLOOKUP REMOTE_DOUBLE_REV CONN_CLOSE);
+use Apache::Const -compile => qw(OK CONN_CLOSE);
sub handler {
my $r = shift;
