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

[dougm]

dougm       01/05/03 21:11:33

  Modified:    src/modules/perl modperl_util.c
  Log:
  modperl_sv2request_rec needs to check sv_derived_from() if given classname
  
  Revision  Changes    Path
  1.12      +4 -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.11
  retrieving revision 1.12
  diff -u -r1.11 -r1.12
  --- modperl_util.c    2001/04/30 07:17:46     1.11
  +++ modperl_util.c    2001/05/04 04:11:32     1.12
  @@ -98,11 +98,14 @@
           return r;
       }
   
  -    /* XXX: not checking sv_derived_from(sv, classname); for speed */
       if ((mg = SvMAGIC(sv))) {
           return MgTypeExt(mg) ? (request_rec *)mg->mg_ptr : NULL;
       }
       else {
  +        if (classname && !sv_derived_from(in, classname)) {
  +            /* XXX: find something faster than sv_derived_from */
  +            return NULL;
  +        }
           return (request_rec *)SvIV(sv);
       }