diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-03-20 10:13:38 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-03-20 10:13:38 +0000 |
commit | bc6af7f8cb3d4ab094ae8df3969217a3682c9bed (patch) | |
tree | 6e5f1f0886c3ecbbb9367ea70645d47565d421e5 /pp.c | |
parent | 7a2e501a470d7096f8a5847c8002615db94d259b (diff) | |
download | perl-bc6af7f8cb3d4ab094ae8df3969217a3682c9bed.tar.gz |
If the scalar has just been upgraded to SVt_RV, there's no way SvPVX
can be non-NULL, so no need to check.
p4raw-id: //depot/perl@27548
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -172,7 +172,7 @@ PP(pp_rv2gv) } if (SvTYPE(sv) < SVt_RV) sv_upgrade(sv, SVt_RV); - if (SvPVX_const(sv)) { + else if (SvPVX_const(sv)) { SvPV_free(sv); SvLEN_set(sv, 0); SvCUR_set(sv, 0); |