cvs commit: modperl/src/modules/perl mod_perl.c

[cholet]

cholet      00/06/02 10:23:08

  Modified:    src/modules/perl mod_perl.c
  Log:
  fix segfault
  
  Revision  Changes    Path
  1.122     +1 -1      modperl/src/modules/perl/mod_perl.c
  
  Index: mod_perl.c
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/mod_perl.c,v
  retrieving revision 1.121
  retrieving revision 1.122
  diff -u -r1.121 -r1.122
  --- mod_perl.c        2000/05/25 18:06:23     1.121
  +++ mod_perl.c        2000/06/02 17:23:07     1.122
  @@ -1222,7 +1222,7 @@
       }
   
   #ifdef CVf_METHOD
  -    if (CvFLAGS(cv) & CVf_METHOD) {
  +    if (cv && (CvFLAGS(cv) & CVf_METHOD)) {
           is_method = 1;
       }
   #endif