X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=miniperlmain.c;h=680b04284a9356b8f42e630a5382bfc21d072072;hb=0e505df1d74bd65a42a69dbec1b44eebf2bd0b93;hp=bc81e997372569fcb99ce5ae2aa48a5a015a8890;hpb=a91be337f157c8dc7b6d4732321bf32b45a1f51c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/miniperlmain.c b/miniperlmain.c
index bc81e99..680b042 100644
--- a/miniperlmain.c
+++ b/miniperlmain.c
@@ -33,20 +33,20 @@ char **env;
 
     PERL_SYS_INIT(&argc,&argv);
 
-    perl_init_i18nl14n(1);
+    perl_init_i18nl10n(1);
 
     if (!do_undump) {
 	my_perl = perl_alloc();
 	if (!my_perl)
 	    exit(1);
 	perl_construct( my_perl );
+	perl_destruct_level = 0;
     }
 
     exitstatus = perl_parse( my_perl, xs_init, argc, argv, (char **) NULL );
-    if (exitstatus)
-	exit( exitstatus );
-
-    exitstatus = perl_run( my_perl );
+    if (!exitstatus) {
+	exitstatus = perl_run( my_perl );
+    }
 
     perl_destruct( my_perl );
     perl_free( my_perl );