cvs commit: modperl-2.0/xs/Apache/Filter Apache__Filter.h

2002-06-30 Thread stas 

stas2002/07/01 00:08:45

  Modified:xs/Apache/Filter Apache__Filter.h
  Log:
  fix a typo: s/output/input/
  
  Revision  ChangesPath
  1.19  +1 -1  modperl-2.0/xs/Apache/Filter/Apache__Filter.h
  
  Index: Apache__Filter.h
  ===
  RCS file: /home/cvs/modperl-2.0/xs/Apache/Filter/Apache__Filter.h,v
  retrieving revision 1.18
  retrieving revision 1.19
  diff -u -r1.18 -r1.19
  --- Apache__Filter.h  25 Jan 2002 04:04:22 -  1.18
  +++ Apache__Filter.h  1 Jul 2002 07:08:45 -   1.19
  @@ -2,7 +2,7 @@
   ap_add_output_filter(name, ctx, r, NULL)
   
   #define mpxs_Apache__RequestRec_add_input_filter(r, name, ctx) \
  -ap_add_output_filter(name, ctx, r, NULL)
  +ap_add_input_filter(name, ctx, r, NULL)
   
   #define mp_xs_sv2_modperl_filter(sv) \
   ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \

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

2002-06-30 Thread stas 

stas2002/06/30 22:15:28

  Modified:src/modules/perl modperl_util.c
   t/response/TestAPI module.pm
  Log:
  modperl_perl_module_loaded should return FALSE when the argument is ""
  + add a sub-test to cover this case
  
  Revision  ChangesPath
  1.48  +1 -1  modperl-2.0/src/modules/perl/modperl_util.c
  
  Index: modperl_util.c
  ===
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.c,v
  retrieving revision 1.47
  retrieving revision 1.48
  diff -u -r1.47 -r1.48
  --- modperl_util.c21 Jun 2002 00:44:24 -  1.47
  +++ modperl_util.c1 Jul 2002 05:15:28 -   1.48
  @@ -602,7 +602,7 @@
   
   MP_INLINE int modperl_perl_module_loaded(pTHX_ const char *name)
   {
  -return gv_stashpv(name, FALSE) ? 1 : 0;
  +return (*name && gv_stashpv(name, FALSE)) ? 1 : 0;
   }
   
   /* same as Symbol::gensym() */
  
  
  
  1.8   +4 -1  modperl-2.0/t/response/TestAPI/module.pm
  
  Index: module.pm
  ===
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/module.pm,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- module.pm 19 May 2002 19:10:45 -  1.7
  +++ module.pm 1 Jul 2002 05:15:28 -   1.8
  @@ -18,7 +18,7 @@
   
   my $cfg = Apache::Test::config();
   
  -plan $r, tests => 13;
  +plan $r, tests => 14;
   
   my $top_module = Apache::Module->top_module;
   
  @@ -91,6 +91,9 @@
   #bogus
   ok t_cmp(0, Apache::Module::loaded('Apache__Module_foo.foo'),
"Apache::Module::loaded('Apache__Module_foo.foo')");
  +
  +ok t_cmp(0, Apache::Module::loaded(''),
  + "Apache::Module::loaded('')");
   
   Apache::OK;
   }

cvs commit: modperl-2.0/lib/Apache compat.pm

2002-06-30 Thread stas 

stas2002/06/30 21:55:42

  Modified:lib/Apache compat.pm
  Log:
  enable warnings
  
  Revision  ChangesPath
  1.63  +1 -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.62
  retrieving revision 1.63
  diff -u -r1.62 -r1.63
  --- compat.pm 1 Jul 2002 04:54:09 -   1.62
  +++ compat.pm 1 Jul 2002 04:55:42 -   1.63
  @@ -1,6 +1,7 @@
   package Apache::compat;
   
   use strict;
  +use warnings FATAL => 'all';
   
   #1.xx compat layer
   #some of this will stay as-is

cvs commit: modperl-2.0/lib/Apache compat.pm

2002-06-30 Thread stas 

stas2002/06/30 21:54:09

  Modified:lib/Apache compat.pm
  Log:
  make sure that the call is made as Apache->module($name) (2 arguments)
  and not Apache::module($name)
  
  Revision  ChangesPath
  1.62  +1 -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.61
  retrieving revision 1.62
  diff -u -r1.61 -r1.62
  --- compat.pm 4 Jun 2002 12:40:53 -   1.61
  +++ compat.pm 1 Jul 2002 04:54:09 -   1.62
  @@ -92,6 +92,7 @@
   
   sub module {
   require Apache::Module;
  +die 'Usage: Apache->module($name)' if @_ != 2;
   return Apache::Module::loaded($_[1]);
   }