This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Shave off the explict 1; from the end of lib/Config.pm
[perl5.git] / scope.c
diff --git a/scope.c b/scope.c
index b38ae7e..af10b71 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -934,7 +934,7 @@ Perl_leave_scope(pTHX_ I32 base)
                case SVt_PVCV:
                    Perl_croak(aTHX_ "panic: leave_scope pad code");
                default:
-                   (void)SvOK_off(sv);
+                   SvOK_off(sv);
                    break;
                }
                SvPADSTALE_on(sv); /* mark as no longer live */