diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-07-19 21:34:05 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-07-19 21:34:05 +0000 |
| commit | 6e89fa1521e43089c5fc8ad7041ab22f5f3113f1 (patch) | |
| tree | c3076897a411f94fe977a28bec475239e69a48f0 /pp_hot.c | |
| parent | c52248be1b93675f97446e26d9a2d2ce15151bcd (diff) | |
| download | perl-6e89fa1521e43089c5fc8ad7041ab22f5f3113f1.tar.gz | |
Band-aid for segfault in ext/threads/t/blocks.t on SMP machines
p4raw-id: //depot/perl@28601
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -2909,7 +2909,8 @@ try_autoload: 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 ) { |