Nit to change 30762 by Gisle.

Avoids storing the chars removed by 4-arg substr() in void context.

p4raw-id: //depot/perl@30763

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 34ae75f8c7..b5c696c7e5 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);