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

[dougm]

dougm       01/05/03 20:44:23

  Modified:    src/modules/perl modperl_const.c
  Log:
  make constants GvSHARED
  
  Revision  Changes    Path
  1.7       +3 -0      modperl-2.0/src/modules/perl/modperl_const.c
  
  Index: modperl_const.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_const.c,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- modperl_const.c   2001/04/12 03:01:39     1.6
  +++ modperl_const.c   2001/05/04 03:44:23     1.7
  @@ -22,6 +22,9 @@
   #endif
   
           newCONSTSUB(stash, (char *)name, newSViv(val));
  +#ifdef GvSHARED
  +        GvSHARED_on(*gvp);
  +#endif
       }
       
       /* export into callers namespace */