stop t/op/write.t failures under stdio by always closing files

[p5sagit/p5-mst-13.2.git] / scope.h

diff --git a/scope.h b/scope.h
index c0bd344..50b40fa 100644 (file)
--- a/scope.h
+++ b/scope.h
@@ -167,7 +167,6 @@ Closing bracket on a callback.  See C<ENTER> and L<perlcall>.
        SSCHECK(2);                                             \
        SSPUSHPTR((SV*)PL_comppad);                             \
        SSPUSHINT(SAVEt_COMPPAD);                               \
-       SvREFCNT_inc(PL_comppad);                               \
     } STMT_END
 
 #ifdef USE_ITHREADS