diff options
author | gfx <gfuji@cpan.org> | 2009-09-05 16:33:08 +0900 |
---|---|---|
committer | Yves Orton <demerphq@gemini.(none)> | 2009-09-05 11:54:44 +0200 |
commit | 72df79cfe3e47a2c10d5ec5cec73128097bea176 (patch) | |
tree | 04f80aeb6ad24336b544e064b5a73132177756de /pp_hot.c | |
parent | 6dfeccca7d595e9c94766acdd058cec56fa67315 (diff) | |
download | perl-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.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -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 ) { |