summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorgfx <gfuji@cpan.org>2009-09-05 16:33:08 +0900
committerYves Orton <demerphq@gemini.(none)>2009-09-05 11:54:44 +0200
commit72df79cfe3e47a2c10d5ec5cec73128097bea176 (patch)
tree04f80aeb6ad24336b544e064b5a73132177756de /pp_hot.c
parent6dfeccca7d595e9c94766acdd058cec56fa67315 (diff)
downloadperl-72df79cfe3e47a2c10d5ec5cec73128097bea176.tar.gz
Remove an unnecessary NULL check, which is already checked other places
Signed-off-by: Yves Orton <demerphq@gemini.(none)>
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/pp_hot.c b/pp_hot.c
index a78f022472..61d8b4371f 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2869,8 +2869,10 @@ try_autoload:
PL_curcopdb = NULL;
}
/* Do we need to open block here? XXXX */
- if (CvXSUB(cv)) /* XXX this is supposed to be true */
- (void)(*CvXSUB(cv))(aTHX_ cv);
+
+ /* CvXSUB(cv) must not be NULL because newXS() refuses NULL xsub address */
+ assert(CvXSUB(cv));
+ CALL_FPTR(CvXSUB(cv))(aTHX_ cv);
/* Enforce some sanity in scalar context. */
if (gimme == G_SCALAR && ++markix != PL_stack_sp - PL_stack_base ) {