cvs commit: modperl-2.0/t/response/TestAPI conn_util.pm conn_rec.pm

[stas]

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;