X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/9947a42173c52d45740326727711ca30531d7832..b977d03a544315f8953421cd86f9236a4b3157de:/doio.c?ds=sidebyside

diff --git a/doio.c b/doio.c
index 5d526c8..bf316bf 100644
--- a/doio.c
+++ b/doio.c
@@ -732,7 +732,7 @@ Perl_nextargv(pTHX_ register GV *gv)
     IO * const io = GvIOp(gv);
 
     if (!PL_argvoutgv)
-	PL_argvoutgv = gv_fetchpv("ARGVOUT",TRUE,SVt_PVIO);
+	PL_argvoutgv = gv_fetchpvs("ARGVOUT", GV_ADD|GV_NOTQUAL, SVt_PVIO);
     if (io && (IoFLAGS(io) & IOf_ARGV) && (IoFLAGS(io) & IOf_START)) {
 	IoFLAGS(io) &= ~IOf_START;
 	if (PL_inplace) {
@@ -765,7 +765,8 @@ Perl_nextargv(pTHX_ register GV *gv)
 	    if (PL_inplace) {
 		TAINT_PROPER("inplace open");
 		if (oldlen == 1 && *PL_oldname == '-') {
-		    setdefout(gv_fetchpv("STDOUT",TRUE,SVt_PVIO));
+		    setdefout(gv_fetchpvs("STDOUT", GV_ADD|GV_NOTQUAL,
+					  SVt_PVIO));
 		    return IoIFP(GvIOp(gv));
 		}
 #ifndef FLEXFILENAMES
@@ -932,7 +933,7 @@ Perl_nextargv(pTHX_ register GV *gv)
 	    SvREFCNT_dec(oldout);
 	    return NULL;
 	}
-	setdefout(gv_fetchpv("STDOUT",TRUE,SVt_PVIO));
+	setdefout(gv_fetchpvs("STDOUT", GV_ADD|GV_NOTQUAL, SVt_PVIO));
     }
     return NULL;
 }