diff options
| author | Arthur Bergman <arthur@contiller.se> | 2001-08-12 02:34:28 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-12 17:10:22 +0000 |
| commit | 26f423df377276528161ee2c2bb3d257fc527c90 (patch) | |
| tree | 067e0a643999e4273dfac574d0a47b507ec91027 /miniperlmain.c | |
| parent | d8916601297526a1bb63e8e641519eb59caf53f6 (diff) | |
| download | perl-26f423df377276528161ee2c2bb3d257fc527c90.tar.gz | |
SV: END {} blocks run in perl_run
Message-ID: <03fd01c122b5$c803c600$052aa8c0@foo>
p4raw-id: //depot/perl@11647
Diffstat (limited to 'miniperlmain.c')
| -rw-r--r-- | miniperlmain.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index 2c924ebe2e..ee09fbe802 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -74,9 +74,12 @@ main(int argc, char **argv, char **env) exitstatus = perl_parse(my_perl, xs_init, argc, argv, (char **)NULL); if (!exitstatus) { exitstatus = perl_run(my_perl); + perl_destruct(my_perl); + exitstatus = STATUS_NATIVE_EXPORT; + } else { + perl_destruct(my_perl); } - perl_destruct(my_perl); perl_free(my_perl); PERL_SYS_TERM(); |