cvs commit: ponie/perl perl.c

cvsuser     04/02/19 08:35:02

  Modified:    perl     perl.c
  Log:
  init the parrot interpreter as soon as possible
  
  Revision  Changes    Path
  1.5       +7 -5      ponie/perl/perl.c
  
  Index: perl.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/perl.c,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -w -r1.4 -r1.5
  --- perl.c	15 Dec 2003 10:26:45 -0000	1.4
  +++ perl.c	19 Feb 2004 16:35:01 -0000	1.5
  @@ -148,6 +148,13 @@
   perl_construct(pTHXx)
   {
   
  +    /**
  +       Init the Parrot thingy we embed       
  +    **/
  +    PL_Parrot = Parrot_new(0);
  +    Parrot_init(PL_Parrot);
  +
  +
   
   #ifdef MULTIPLICITY
       init_interp();
  @@ -205,11 +212,6 @@
       init_i18nl10n(1);
       SET_NUMERIC_STANDARD();
   
  -    /**
  -       Init the Parrot thingy we embed       
  -    **/
  -    PL_Parrot = Parrot_new(0);
  -    Parrot_init(PL_Parrot);
   
   
       {
  
  
  

• cvs commit: ponie/perl perl.c by Arthur Bergman