cvs commit: ponie/perl perl.c
[email protected] (Arthur Bergman) 19 Feb 2004 16:35:02 -0000
| Newsgroups | perl.ponie.changes |
|---|---|
| Message-ID | <[email protected]> |
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);
{