X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/f91dcd139f8093525e1a00c3803de98b1bf89cab..b01425c33956a0b279a0f20ced4131027f2c40f4:/scope.c diff --git a/scope.c b/scope.c index f87f7ce..cd342d0 100644 --- 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 {