In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/ad77c200c8a4ed39fda83b8a740ef81ede885d84?hp=ef32f9b97b7f6ea1925757be14c852b20c8145c4>
- Log -----------------------------------------------------------------
commit ad77c200c8a4ed39fda83b8a740ef81ede885d84
Author: Rafael Garcia-Suarez <r...@consttype.org>
Date: Tue Sep 30 15:36:10 2014 +0200
Add a test for <<>> failing on the second file
-----------------------------------------------------------------------
Summary of changes:
t/io/argv.t | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/t/io/argv.t b/t/io/argv.t
index b3825bb..58e1d66 100644
--- a/t/io/argv.t
+++ b/t/io/argv.t
@@ -7,7 +7,7 @@ BEGIN {
BEGIN { require "./test.pl"; }
-plan(tests => 34);
+plan(tests => 35);
my ($devnull, $no_devnull);
@@ -208,6 +208,13 @@ SKIP: {
args => [ '"echo foo |"' ],
);
is($x, "Can't open echo foo |: No such file or directory at -e line 1.\n",
'<<>> does not treat ...| as fork');
+
+ $x = runperl(
+ prog => 'while (<<>>) { }',
+ stderr => 1,
+ args => [ 'Io_argv1.tmp', '"echo foo |"' ],
+ );
+ is($x, "Can't open echo foo |: No such file or directory at -e line 1, <>
line 2.\n", '<<>> does not treat ...| as fork after eof');
}
# This used to dump core
--
Perl5 Master Repository
