Change 11783 by sky@sky-lab on 2001/08/29 07:37:50
END{} can change the return value even if we die from BEGIN{}
Affected files ...
... //depot/perl/miniperlmain.c#30 edit
Differences ...
==== //depot/perl/miniperlmain.c#30 (text) ====
Index: perl/miniperlmain.c
--- perl/miniperlmain.c.~1~ Wed Aug 29 01:45:05 2001
+++ perl/miniperlmain.c Wed Aug 29 01:45:05 2001
@@ -72,12 +72,10 @@
}
PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
exitstatus = perl_parse(my_perl, xs_init, argc, argv, (char **)NULL);
- if (!exitstatus) {
+ if (!exitstatus)
perl_run(my_perl);
- exitstatus = perl_destruct(my_perl);
- } else {
- perl_destruct(my_perl);
- }
+
+ exitstatus = perl_destruct(my_perl);
perl_free(my_perl);
End of Patch.
