cvs commit: modperl-2.0/src/modules/perl modperl_mgv.c

2002-12-06 Thread stas 
stas2002/12/06 00:00:22

  Modified:src/modules/perl modperl_mgv.c
  Log:
  report that the handler wasn't found in class 'foo' only if that class was
  actually loaded. otherwise a lot of misleading trace reports get printed
  for handlers whose modules weren't loaded yet.
  
  Revision  ChangesPath
  1.20  +7 -2  modperl-2.0/src/modules/perl/modperl_mgv.c
  
  Index: modperl_mgv.c
  ===
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_mgv.c,v
  retrieving revision 1.19
  retrieving revision 1.20
  diff -u -r1.19 -r1.20
  --- modperl_mgv.c 6 Dec 2002 07:58:22 -   1.19
  +++ modperl_mgv.c 6 Dec 2002 08:00:21 -   1.20
  @@ -323,8 +323,13 @@
   return 1;
   }
   
  -MP_TRACE_h(MP_FUNC, "`%s' not found in class `%s'\n",
  -   handler_name, name);
  +#ifdef MP_TRACE
  +/* complain only if the class was actually loaded/created */
  +if (stash) {
  +MP_TRACE_h(MP_FUNC, "`%s' not found in class `%s'\n",
  +   handler_name, name);
  +}
  +#endif
   
   return 0;
   }

cvs commit: modperl-2.0/src/modules/perl modperl_mgv.c modperl_mgv.h

2002-08-28 Thread dougm 

dougm   2002/08/28 21:07:41

  Modified:src/modules/perl modperl_mgv.c modperl_mgv.h
  Log:
  add modperl_mgv_last and modperl_mgv_last_name util functions
  
  Revision  ChangesPath
  1.18  +15 -0 modperl-2.0/src/modules/perl/modperl_mgv.c
  
  Index: modperl_mgv.c
  ===
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_mgv.c,v
  retrieving revision 1.17
  retrieving revision 1.18
  diff -u -r1.17 -r1.18
  --- modperl_mgv.c 24 May 2002 02:33:06 -  1.17
  +++ modperl_mgv.c 29 Aug 2002 04:07:41 -  1.18
  @@ -327,6 +327,21 @@
   return 0;
   }
   
  +modperl_mgv_t *modperl_mgv_last(modperl_mgv_t *symbol)
  +{
  +while (symbol->next) {
  +symbol = symbol->next;
  +}
  +
  +return symbol;
  +}
  +
  +char *modperl_mgv_last_name(modperl_mgv_t *symbol)
  +{
  +symbol = modperl_mgv_last(symbol);
  +return symbol->name;
  +}
  +
   char *modperl_mgv_as_string(pTHX_ modperl_mgv_t *symbol,
   apr_pool_t *p, int package)
   {
  
  
  
  1.5   +4 -0  modperl-2.0/src/modules/perl/modperl_mgv.h
  
  Index: modperl_mgv.h
  ===
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_mgv.h,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- modperl_mgv.h 26 Mar 2001 01:08:29 -  1.4
  +++ modperl_mgv.h 29 Aug 2002 04:07:41 -  1.5
  @@ -21,6 +21,10 @@
   void modperl_mgv_append(pTHX_ apr_pool_t *p, modperl_mgv_t *symbol,
   const char *name);
   
  +modperl_mgv_t *modperl_mgv_last(modperl_mgv_t *symbol);
  +
  +char *modperl_mgv_last_name(modperl_mgv_t *symbol);
  +
   char *modperl_mgv_as_string(pTHX_ modperl_mgv_t *symbol,
   apr_pool_t *p, int package);

cvs commit: modperl-2.0/src/modules/perl modperl_mgv.c

2002-05-17 Thread dougm 

dougm   02/05/17 18:49:37

  Modified:src/modules/perl modperl_mgv.c
  Log:
  object handlers cannot mark handler as parsed until method is found
  
  Revision  ChangesPath
  1.16  +0 -2  modperl-2.0/src/modules/perl/modperl_mgv.c
  
  Index: modperl_mgv.c
  ===
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_mgv.c,v
  retrieving revision 1.15
  retrieving revision 1.16
  diff -u -r1.15 -r1.16
  --- modperl_mgv.c 13 Oct 2001 03:22:15 -  1.15
  +++ modperl_mgv.c 18 May 2002 01:49:37 -  1.16
  @@ -239,8 +239,6 @@
  name, HvNAME(stash));
   }
   }
  -
  -MpHandlerPARSED_On(handler);
   }
   else {
   if ((cv = get_cv(name, FALSE))) {