exhausting <> in BEGIN{} gets ARGVOUT used only once warning

Message-ID: <20060607052446.GA3240@efn.org>

p4raw-id: //depot/perl@28364

diff --git a/gv.c b/gv.c
index 7d49b83..746b2bb 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -1002,6 +1002,9 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
                if (strEQ(name2, "RGV")) {
                    IoFLAGS(GvIOn(gv)) |= IOf_ARGV|IOf_START;
                }
+               else if (strEQ(name2, "RGVOUT")) {
+                   GvMULTI_on(gv);
+               }
                break;
            case 'E':
                if (strnEQ(name2, "XPORT", 5))

diff --git a/t/op/readline.t b/t/op/readline.t
index d047f16..6dfe695 100644 (file)
--- a/t/op/readline.t
+++ b/t/op/readline.t
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan tests => 13;
+plan tests => 14;
 
 eval { for (\2) { $_ = <FH> } };
 like($@, 'Modification of a read-only value attempted', '[perl #19566]');
@@ -79,6 +79,10 @@ SKIP: {
   }
 }
 
+fresh_perl_is('BEGIN{<>}', '',
+              { switches => ['-w'], stdin => '', stderr => 1 },
+              'No ARGVOUT used only once warning');
+
 __DATA__
 moo
 moo