cvs commit: ponie/perl perl.c

cvsuser     05/05/03 09:12:19

  Modified:    perl     perl.c
  Log:
  Allow PONIE_DEBUG_GC in the environment to turn on parrot's GC debugging
  
  Revision  Changes    Path
  1.25      +4 -0      ponie/perl/perl.c
  
  Index: perl.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/perl.c,v
  retrieving revision 1.24
  retrieving revision 1.25
  diff -u -r1.24 -r1.25
  --- perl.c	2 May 2005 22:12:06 -0000	1.24
  +++ perl.c	3 May 2005 16:12:19 -0000	1.25
  @@ -226,6 +226,10 @@
       PL_Parrot = Parrot_new(0);
       Parrot_init(PL_Parrot);
   
  +    if(getenv("PONIE_DEBUG_GC")) {
  +	Parrot_set_flag(PL_Parrot, PARROT_GC_DEBUG_FLAG);
  +    }
  +
       Parrot_init_lib(PL_Parrot, &Parrot_lib_perl5pmcs_load, NULL);
   
   #ifdef USE_ITHREADS