diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-04-08 21:55:41 +0300 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-04-10 12:21:34 +0000 |
commit | 0e528f24e7b99cb9698e649a1be36ce5daf462d9 (patch) | |
tree | 00f47f65cc4e31d34d99537161b233569bd5428c /pp_sys.c | |
parent | 5ee74a8413ea165905e4d6df1d5c311295897dfc (diff) | |
download | perl-0e528f24e7b99cb9698e649a1be36ce5daf462d9.tar.gz |
pp_sys.c: some Coverity findings: NULL guards for format cv
Message-Id: <20060408155541.46B796D08C@ugli.hut.fi>
Date: Sat, 8 Apr 2006 18:55:41 +0300 (EEST)
p4raw-id: //depot/perl@27756
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 12 |
1 files changed, 5 insertions, 7 deletions
@@ -1374,15 +1374,13 @@ PP(pp_leavewrite) gv_efullname4(sv, fgv, NULL, FALSE); name = SvPV_nolen_const(sv); if (name && *name) - DIE(aTHX_ "Undefined top format \"%s\" called",name); + DIE(aTHX_ "Undefined top format \"%s\" called", name); + else + DIE(aTHX_ "Undefined top format called"); } - /* why no: - else - DIE(aTHX_ "Undefined top format called"); - ?*/ - if (CvCLONE(cv)) + if (cv && CvCLONE(cv)) cv = (CV*)sv_2mortal((SV*)cv_clone(cv)); - return doform(cv,gv,PL_op); + return doform(cv, gv, PL_op); } forget_top: |