EQEmulator Forums - World Perl10 fix

I noticed after I upgraded to perl10.. i couldn't use the world http management anymore.
It straight up crashes the world when I try and login.
This will fix this...

Code:

Index: EQWParser.cpp

===================================================================

--- EQWParser.cpp        (revision 395)

+++ EQWParser.cpp        (working copy)

@@ -75,20 +75,23 @@

 }

 

 void EQWParser::DoInit() {

-        

-        //arguments for interpreter start

-        const char *args[] = { "", "-w", "-W", "-e", "0;", NULL };

-        

-        

+        const char *argv_eqemu[] = { "",

+                "-w", "-W",

+                "-e", "0;", NULL };

+

+        int argc = 5;

+

+        char **argv = (char **)argv_eqemu;

+        char **env = { NULL };

+

+        PL_perl_destruct_level = 1;

+

         perl_construct(my_perl);

-        

-        

-        if(perl_parse(my_perl, xs_init,

-                5,

-                (char **) args, NULL)) {

-                _log(WORLD__PERL_ERR, "Error: perl_parse failed!");

-                return;

-        }

+

+        PERL_SYS_INIT3(&argc, &argv, &env);

+

+        perl_parse(my_perl, xs_init, argc, argv, env);

+

         perl_run(my_perl);

         

         //a little routine we use a lot.