IoDIRP may be fake when used in source filters, mark as such

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

diff --git a/scope.c b/scope.c
index 51aeed2..da428d7 100644 (file)
--- 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;
        }