X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=scope.c;h=da428d7642c7b1a3a48af5d2cd86d86fba9cde5a;hb=e0c198038146b7a4a8cc36d4608b35da0fadeaad;hp=51aeed2dc08641d36567a6cc891b23228fb64bc4;hpb=18708f5a7334d978ddf7562cb7f58e28bec6e4ed;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/scope.c b/scope.c
index 51aeed2..da428d7 100644
--- a/scope.c
+++ b/scope.c
@@ -283,7 +283,7 @@ Perl_save_gp(pTHX_ GV *gv, I32 empty)
 
 	if (GvCVu(gv))
 	    PL_sub_generation++;	/* taking a method out of circulation */
-	else if (GvIOp(gv) && (IoFLAGS(GvIOp(gv)) & IOf_ARGV)) {
+	if (GvIOp(gv) && (IoFLAGS(GvIOp(gv)) & IOf_ARGV)) {
 	    gp->gp_io = newIO();
 	    IoFLAGS(gp->gp_io) |= IOf_ARGV|IOf_START;
 	}