summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-01-11 07:00:06 -0800
committerFather Chrysostomos <sprout@cpan.org>2014-01-11 11:09:35 -0800
commit535e48ea19f4d8f568f8581284e630b9a1f38c43 (patch)
treea6e82d24d6d4eaf77e4586b31c0201411c9e0eef /pp_sys.c
parentd7919c41ebb906b8d468df6fb4851cf7f5f74323 (diff)
downloadperl-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 277a874155..b5d84d3ef2 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -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;