diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-01-11 07:00:06 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-01-11 11:09:35 -0800 |
commit | 535e48ea19f4d8f568f8581284e630b9a1f38c43 (patch) | |
tree | a6e82d24d6d4eaf77e4586b31c0201411c9e0eef /pp_sys.c | |
parent | d7919c41ebb906b8d468df6fb4851cf7f5f74323 (diff) | |
download | perl-535e48ea19f4d8f568f8581284e630b9a1f38c43.tar.gz |
pp_sys.c:S_doform: remove redundant null check
This static function is called from exactly two places that both die
aforehand if cv is null. Further, the cv parameter is already marked
as non-null.
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1348,7 +1348,7 @@ S_doform(pTHX_ CV *cv, GV *gv, OP *retop) PERL_ARGS_ASSERT_DOFORM; - if (cv && CvCLONE(cv)) + if (CvCLONE(cv)) cv = MUTABLE_CV(sv_2mortal(MUTABLE_SV(cv_clone(cv)))); ENTER; |