perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ge...@apache.org
Subject cvs commit: modperl/src/modules/perl mod_perl_xs.h
Date Wed, 29 May 2002 16:25:41 GMT
geoff       02/05/29 09:25:41

  Modified:    .        Changes
               src/modules/perl mod_perl_xs.h
  Log:
  fix get_set_PVp() to properly set NULL values when passing in undef
  Submitted by: Stephen Clouse <stephenc@theiqgroup.com>
  Reviewed by: dougm
  
  Revision  Changes    Path
  1.646     +4 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.645
  retrieving revision 1.646
  diff -u -r1.645 -r1.646
  --- Changes	23 May 2002 04:21:06 -0000	1.645
  +++ Changes	29 May 2002 16:25:40 -0000	1.646
  @@ -10,6 +10,10 @@
   
   =item 1.26_01-dev
   
  +fix get_set_PVp() to properly set NULL values when passing in undef
  +thanks to Lyle Brooks for the spot
  +[Stephen Clouse <stephenc@theiqgroup.com>]
  +
   Apache::Registry errors are now saved in $r->notes('error-notes')
   [Jesse Erlbaum <jesse@vm.com>]
   
  
  
  
  1.7       +1 -1      modperl/src/modules/perl/mod_perl_xs.h
  
  Index: mod_perl_xs.h
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/mod_perl_xs.h,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- mod_perl_xs.h	2 Mar 2000 23:23:10 -0000	1.6
  +++ mod_perl_xs.h	29 May 2002 16:25:40 -0000	1.7
  @@ -3,7 +3,7 @@
   #define get_set_PVp(thing,p) \
       RETVAL = (char*)thing; \
       if(items > 1) \
  -        thing = (char*)((ST(1) == &sv_undef) ? NULL : pstrdup(p, SvPV(ST(1),na)))
  +        thing = (char*)(SvOK(ST(1)) ? pstrdup(p, SvPV(ST(1),na)) : NULL)
   
   #define get_set_PV(thing) \
       get_set_PVp(thing,r->pool)
  
  
  

Mime
View raw message