You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/02/19 01:10:51 UTC

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

dougm       01/02/18 16:10:50

  Modified:    src/modules/perl modperl_callback.c
  Log:
  more s/class/package/g
  
  Revision  Changes    Path
  1.18      +19 -19    modperl-2.0/src/modules/perl/modperl_callback.c
  
  Index: modperl_callback.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_callback.c,v
  retrieving revision 1.17
  retrieving revision 1.18
  diff -u -r1.17 -r1.18
  --- modperl_callback.c	2001/02/18 21:55:08	1.17
  +++ modperl_callback.c	2001/02/19 00:10:49	1.18
  @@ -91,21 +91,21 @@
   {
       CV *cv;
       GV *gv;
  -    HV *stash = gv_stashpv(class, FALSE);
  +    HV *stash = gv_stashpv(package, FALSE);
   
       if (!stash) {
  -        MP_TRACE_h(MP_FUNC, "class %s not defined, attempting to load\n",
  -                   class);
  -        require_module(aTHX_ class);
  +        MP_TRACE_h(MP_FUNC, "package %s not defined, attempting to load\n",
  +                   package);
  +        require_module(aTHX_ package);
           if (SvTRUE(ERRSV)) {
  -            MP_TRACE_h(MP_FUNC, "failed to load %s class\n", class);
  +            MP_TRACE_h(MP_FUNC, "failed to load %s package\n", package);
               return 0;
           }
           else {
  -            MP_TRACE_h(MP_FUNC, "loaded %s class\n", class);
  -            if (!(stash = gv_stashpv(class, FALSE))) {
  +            MP_TRACE_h(MP_FUNC, "loaded %s package\n", package);
  +            if (!(stash = gv_stashpv(package, FALSE))) {
                   MP_TRACE_h(MP_FUNC, "%s package still does not exist\n",
  -                           class);
  +                           package);
                   return 0;
               }
           }
  @@ -114,7 +114,7 @@
       if ((gv = gv_fetchmethod(stash, name)) && (cv = GvCV(gv))) {
           if (CvFLAGS(cv) & CVf_METHOD) { /* sub foo : method {}; */
               MpHandlerMETHOD_On(handler);
  -            handler->obj = newSVpv(class, 0);
  +            handler->obj = newSVpv(package, 0);
               handler->cv = newSVpv(name, 0);
           }
           else {
  @@ -198,38 +198,38 @@
       }
       
       if ((tmp = strstr(name, "->"))) {
  -        char class[256]; /*XXX*/
  -        int class_len = strlen(name) - strlen(tmp);
  -        apr_cpystrn(class, name, class_len+1);
  +        char package[256]; /*XXX*/
  +        int package_len = strlen(name) - strlen(tmp);
  +        apr_cpystrn(package, name, package_len+1);
   
           MpHandlerMETHOD_On(handler);
           handler->cv = newSVpv(&tmp[2], 0);
   
  -        if (*class == '$') {
  -            SV *obj = eval_pv(class, FALSE);
  +        if (*package == '$') {
  +            SV *obj = eval_pv(package, FALSE);
   
               if (SvTRUE(obj)) {
                   handler->obj = SvREFCNT_inc(obj);
                   if (SvROK(obj) && sv_isobject(obj)) {
                       MpHandlerOBJECT_On(handler);
                       MP_TRACE_h(MP_FUNC, "handler object %s isa %s\n",
  -                               class, HvNAME(SvSTASH((SV*)SvRV(obj))));
  +                               package, HvNAME(SvSTASH((SV*)SvRV(obj))));
                   }
                   else {
                       MP_TRACE_h(MP_FUNC, "%s is not an object, pv=%s\n",
  -                               class, SvPV_nolen(obj));
  +                               package, SvPV_nolen(obj));
                   }
               }
               else {
  -                MP_TRACE_h(MP_FUNC, "failed to thaw %s\n", class);
  +                MP_TRACE_h(MP_FUNC, "failed to thaw %s\n", package);
                   return 0;
               }
           }
   
           if (!handler->obj) {
  -            handler->obj = newSVpv(class, class_len);
  +            handler->obj = newSVpv(package, package_len);
               MP_TRACE_h(MP_FUNC, "handler method %s isa %s\n",
  -                       SvPVX(handler->cv), class);
  +                       SvPVX(handler->cv), package);
           }
   
           MpHandlerPARSED_On(handler);