[perl #108794] Call special blocks in void context

Now BEGIN blocks, etc., are called in void context, so the result of
evaluating the last statement is not wastefully copied.

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index 0f9ab0072b..eb9889caa0 100644
--- a/perl.c
+++ b/perl.c
@@ -92,7 +92,7 @@ static I32 read_e_script(pTHX_ int idx, SV *buf_sv, int maxlen);
 
 #define CALL_LIST_BODY(cv) \
     PUSHMARK(PL_stack_sp); \
-    call_sv(MUTABLE_SV((cv)), G_EVAL|G_DISCARD);
+    call_sv(MUTABLE_SV((cv)), G_EVAL|G_DISCARD|G_VOID);
 
 static void
 S_init_tls_and_interp(PerlInterpreter *my_perl)