--- M6502/perl.c	2007/07/30 15:52:22	28
+++ M6502/perl.c	2007/07/30 17:32:41	29
@@ -117,7 +117,7 @@
 		"use M6502; print \"Loaded M6502 module\n\";"};
 	my_perl = perl_alloc();
 	perl_construct(my_perl);
-	if (perl_parse(my_perl, NULL, 3, command_line, (char **)NULL)) {
+	if (perl_parse(my_perl, xs_init, 3, command_line, (char **)NULL)) {
 		printf("Failed to parse\n");
 		return 0;
 	}