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

[dougm]

dougm       01/10/06 16:27:47

  Modified:    src/modules/perl modperl_perl_global.c
  Log:
  use modperl_perl_av_push_elts_ref() function
  
  Revision  Changes    Path
  1.4       +2 -12     modperl-2.0/src/modules/perl/modperl_perl_global.c
  
  Index: modperl_perl_global.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl_global.c,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- modperl_perl_global.c     2001/09/28 19:53:22     1.3
  +++ modperl_perl_global.c     2001/10/06 23:27:47     1.4
  @@ -54,19 +54,9 @@
   static void
   modperl_perl_global_gvav_save(pTHX_ modperl_perl_global_gvav_t *gvav)
   {
  -    AV *av = GvAV(gvav->gv);
  -    I32 i, fill = AvFILLp(av);
  -
  -    gvav->tmpav = newAV();
  -
  -    av_extend(gvav->tmpav, fill);
  -    AvFILLp(gvav->tmpav) = fill;
  -
  -    for (i=0; i<=fill; i++) {
  -        AvARRAY(gvav->tmpav)[i] = SvREFCNT_inc(AvARRAY(av)[i]);
  -    }
  -
       gvav->origav = GvAV(gvav->gv);
  +    gvav->tmpav = newAV();
  +    modperl_perl_av_push_elts_ref(aTHX_ gvav->tmpav, gvav->origav);
       GvAV(gvav->gv) = gvav->tmpav;
   }