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

[stas]

stas        2003/10/10 15:08:24

  Modified:    src/modules/perl modperl_module.c
  Log:
  check SvPOK before coercing the returned value into PV, to avoid undef
  warnings
  
  Revision  Changes    Path
  1.16      +2 -1      modperl-2.0/src/modules/perl/modperl_module.c
  
  Index: modperl_module.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_module.c,v
  retrieving revision 1.15
  retrieving revision 1.16
  diff -u -u -r1.15 -r1.16
  --- modperl_module.c  4 Jun 2003 16:50:37 -0000       1.15
  +++ modperl_module.c  10 Oct 2003 22:08:24 -0000      1.16
  @@ -438,7 +438,8 @@
       SPAGAIN;
   
       if (count == 1) {
  -        if (strEQ(POPp, DECLINE_CMD)) {
  +        SV *sv = POPs;
  +        if (SvPOK(sv) && strEQ(SvPVX(sv), DECLINE_CMD)) {
               retval = DECLINE_CMD;
           }
       }