Change 11658 by jhi@alpha on 2001/08/13 12:00:08
Subject: Re: END {} blocks run in perl_run
From: Arthur Bergman <[EMAIL PROTECTED]>
Date: Mon, 13 Aug 2001 11:11:30 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/perl.c#358 edit
Differences ...
==== //depot/perl/perl.c#358 (text) ====
Index: perl/perl.c
--- perl/perl.c.~1~ Mon Aug 13 06:15:05 2001
+++ perl/perl.c Mon Aug 13 06:15:05 2001
@@ -397,15 +397,16 @@
}
#endif
- LEAVE;
{
- dJMPENV;
- int x = 0;
- JMPENV_PUSH(x);
- if (PL_endav && !PL_minus_c)
- call_list(PL_scopestack_ix, PL_endav);
- JMPENV_POP;
+ dJMPENV;
+ int x = 0;
+
+ JMPENV_PUSH(x);
+ if (PL_endav && !PL_minus_c)
+ call_list(PL_scopestack_ix, PL_endav);
+ JMPENV_POP;
}
+ LEAVE;
FREETMPS;
/* We must account for everything. */
End of Patch.
