diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2006-06-06 15:24:46 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-06-07 08:33:35 +0000 |
| commit | 7b8203e3be66f22041237ce6c371ea09ae857f20 (patch) | |
| tree | cd73071a777c96f2363378c139a39abc70a86ede /t | |
| parent | b9ac451d97da485ed458751b091ad58161889fca (diff) | |
| download | perl-7b8203e3be66f22041237ce6c371ea09ae857f20.tar.gz | |
exhausting <> in BEGIN{} gets ARGVOUT used only once warning
Message-ID: <20060607052446.GA3240@efn.org>
p4raw-id: //depot/perl@28364
Diffstat (limited to 't')
| -rw-r--r-- | t/op/readline.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/readline.t b/t/op/readline.t index d047f162b8..6dfe695bb5 100644 --- 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 |