Change 28601 by [EMAIL PROTECTED] on 2006/07/19 21:34:05
Band-aid for segfault in ext/threads/t/blocks.t on SMP machines
Affected files ...
... //depot/perl/pp_hot.c#471 edit
Differences ...
==== //depot/perl/pp_hot.c#471 (text) ====
Index: perl/pp_hot.c
--- perl/pp_hot.c#470~28489~ 2006-07-05 14:00:31.000000000 -0700
+++ perl/pp_hot.c 2006-07-19 14:34:05.000000000 -0700
@@ -2909,7 +2909,8 @@
PL_curcopdb = NULL;
}
/* Do we need to open block here? XXXX */
- (void)(*CvXSUB(cv))(aTHX_ cv);
+ if (CvXSUB(cv)) /* XXX this is supposed to be true */
+ (void)(*CvXSUB(cv))(aTHX_ cv);
/* Enforce some sanity in scalar context. */
if (gimme == G_SCALAR && ++markix != PL_stack_sp - PL_stack_base ) {
End of Patch.
