cvs commit: modperl-2.0/xs/ModPerl/Global ModPerl__Global.h

[dougm]

dougm       01/10/08 09:57:08

  Modified:    xs/ModPerl/Global ModPerl__Global.h
  Log:
  s/SvPV_force/SvPV/; former does not work with readonly vars
  
  Revision  Changes    Path
  1.2       +3 -2      modperl-2.0/xs/ModPerl/Global/ModPerl__Global.h
  
  Index: ModPerl__Global.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/ModPerl/Global/ModPerl__Global.h,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- ModPerl__Global.h 2001/10/07 23:02:40     1.1
  +++ ModPerl__Global.h 2001/10/08 16:57:08     1.2
  @@ -6,15 +6,16 @@
                                   mpxs_special_list_do_t func)
   {
       STRLEN packlen;
  +    char *packname;
       modperl_modglobal_key_t *gkey = modperl_modglobal_lookup(aTHX_ name);
   
       if (!gkey) {
           return FALSE;
       }
   
  -    SvPV_force(package, packlen);
  +    packname = SvPV(package, packlen);
   
  -    func(aTHX_ gkey, SvPVX(package), packlen);
  +    func(aTHX_ gkey, packname, packlen);
   
       return TRUE;
   }