diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-07-17 22:15:28 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-07-17 22:15:28 +0000 |
| commit | b5dd76528f58e6d304c1986b9ed0d87463d41795 (patch) | |
| tree | 4307017ccd57193abfd357d2296bcb8f82abcd14 | |
| parent | 88e89b8ad0f6ca931077409131185dccc62a9998 (diff) | |
| download | perl-b5dd76528f58e6d304c1986b9ed0d87463d41795.tar.gz | |
perl 5.003_01: miniperlmain.c
Correct count in i18nl10n
Insure that perl_destruct() and perl_free() are called before exiting
| -rw-r--r-- | miniperlmain.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index bc81e99737..2d66964093 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -33,7 +33,7 @@ char **env; PERL_SYS_INIT(&argc,&argv); - perl_init_i18nl14n(1); + perl_init_i18nl10n(1); if (!do_undump) { my_perl = perl_alloc(); @@ -43,10 +43,9 @@ char **env; } 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 ); |