World Perl10 fix

[Cripp]

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...

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.

[cavedude]

Thanks, this will be in my next commit!

[cavedude]

This has been committed in Revision 454.