stas        2004/08/22 22:12:51

  Modified:    src/modules/perl modperl_perl_includes.h
               .        Changes
  Log:
  Fix a compilation problem breaking 1.99_15 (sv_copypv was added in
  perl 5.7.3)
  Submitted by: Jason Woodward <[EMAIL PROTECTED]>
  
  Revision  Changes    Path
  1.20      +17 -0     modperl-2.0/src/modules/perl/modperl_perl_includes.h
  
  Index: modperl_perl_includes.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl_includes.h,v
  retrieving revision 1.19
  retrieving revision 1.20
  diff -u -u -r1.19 -r1.20
  --- modperl_perl_includes.h   4 Mar 2004 06:01:07 -0000       1.19
  +++ modperl_perl_includes.h   23 Aug 2004 05:12:51 -0000      1.20
  @@ -112,4 +112,21 @@
   #   define environ (*_NSGetEnviron())
   #endif
   
  +/* sv_copypv was added in perl 5.7.3 */
  +#ifndef sv_copypv
  +#  define sv_copypv(dsv, ssv)     \
  +    STMT_START {                  \
  +        STRLEN len;               \
  +        char *s;                  \
  +        s = SvPV(ssv, len);       \
  +        sv_setpvn(dsv, s, len);   \
  +        if (SvUTF8(ssv)) {        \
  +            SvUTF8_on(dsv);       \
  +        }                         \
  +        else {                    \
  +            SvUTF8_off(dsv);      \
  +        }                         \
  +    } STMT_END
  +#endif
  +
   #endif /* MODPERL_PERL_INCLUDES_H */
  
  
  
  1.461     +3 -0      modperl-2.0/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Changes,v
  retrieving revision 1.460
  retrieving revision 1.461
  diff -u -u -r1.460 -r1.461
  --- Changes   22 Aug 2004 20:47:37 -0000      1.460
  +++ Changes   23 Aug 2004 05:12:51 -0000      1.461
  @@ -12,6 +12,9 @@
   
   =item 1.99_16-dev
   
  +Fix a compilation problem breaking 1.99_15 (sv_copypv was added in
  +perl 5.7.3) [Jason Woodward <[EMAIL PROTECTED]>]
  +
   Added $r->content_languages in Apache::RequestRec [Gozer]
   
   APR::Bucket: add delete() and destroy() methods [Stas]
  
  
  

Reply via email to