cvs commit: httpd-apreq-2/glue/perl/xsbuilder apreq_xs_tables.h

[joes]

joes        2004/07/12 22:12:39

  Modified:    glue/perl/xsbuilder apreq_xs_tables.h
  Log:
  magic_getpack isn't public- try SvGETMAGIC instead
  
  Revision  Changes    Path
  1.14      +2 -2      httpd-apreq-2/glue/perl/xsbuilder/apreq_xs_tables.h
  
  Index: apreq_xs_tables.h
  ===================================================================
  RCS file: /home/cvs/httpd-apreq-2/glue/perl/xsbuilder/apreq_xs_tables.h,v
  retrieving revision 1.13
  retrieving revision 1.14
  diff -u -r1.13 -r1.14
  --- apreq_xs_tables.h 13 Jul 2004 03:35:45 -0000      1.13
  +++ apreq_xs_tables.h 13 Jul 2004 05:12:39 -0000      1.14
  @@ -23,11 +23,11 @@
   static int apreq_xs_table_magic_copy(pTHX_ SV *sv, MAGIC *mg, SV *nsv, 
                                     const char *name, int namelen)
   {
  -    /* prefetch the object */
  +    /* Prefetch the value whenever the table iterator is > 0 */
       MAGIC *tie_magic = mg_find(nsv, PERL_MAGIC_tiedelem);
       SV *obj = SvRV(tie_magic->mg_obj);
       if (SvCUR(obj))
  -        Perl_magic_getpack(aTHX_ nsv, tie_magic);
  +        SvGETMAGIC(nsv);
       return 0;
   }