This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
scope.c:save_gp: Remove redundant code
[perl5.git] / scope.c
diff --git a/scope.c b/scope.c
index f87f7ce..cd342d0 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -292,14 +292,6 @@ Perl_save_gp(pTHX_ GV *gv, I32 empty)
            gp->gp_io = newIO();
            IoFLAGS(gp->gp_io) |= IOf_ARGV|IOf_START;
        }
-#ifdef PERL_DONT_CREATE_GVSV
-       if (gv == PL_errgv) {
-           /* We could scatter this logic everywhere by changing the
-              definition of ERRSV from GvSV() to GvSVn(), but it seems more
-              efficient to do this check once here.  */
-           gp->gp_sv = newSV(0);
-       }
-#endif
        GvGP_set(gv,gp);
     }
     else {