summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2006-03-20 10:13:38 +0000
committerNicholas Clark <nick@ccl4.org>2006-03-20 10:13:38 +0000
commitbc6af7f8cb3d4ab094ae8df3969217a3682c9bed (patch)
tree6e5f1f0886c3ecbbb9367ea70645d47565d421e5 /pp.c
parent7a2e501a470d7096f8a5847c8002615db94d259b (diff)
downloadperl-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp.c b/pp.c
index 383b426f7c..6b3ead8ec0 100644
--- a/pp.c
+++ b/pp.c
@@ -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);