From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 26 Mar 2007 14:36:17 +0000 (+0000)
Subject: Nit to change 30762 by Gisle.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=366e98c304f5509b9df74e815b2f963e08a26c78;p=p5sagit%2Fp5-mst-13.2.git

Nit to change 30762 by Gisle.
Avoids storing the chars removed by 4-arg substr() in void context.

p4raw-id: //depot/perl@30763
---

diff --git a/pp.c b/pp.c
index 34ae75f..b5c696c 100644
--- a/pp.c
+++ b/pp.c
@@ -3115,7 +3115,7 @@ PP(pp_substr)
 	    }
 	}
 
-	if (! lvalue)
+	if (GIMME_V != G_VOID && !lvalue)
 	    sv_setpvn(TARG, tmps, rem);
 #ifdef USE_LOCALE_COLLATE
 	sv_unmagic(TARG, PERL_MAGIC_collxfrm);