diff options
| author | Rafael Garcia-Suarez <rgs@consttype.org> | 2014-07-24 17:43:29 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2014-09-30 08:17:50 +0200 |
| commit | 157fb5a14d10ed16ffc6ebfc43d2637a016fdfce (patch) | |
| tree | b2410287e269d41f3295678586e62ce4fa459188 /embed.h | |
| parent | f276fdad8f6660f36944c895587a7748585e4969 (diff) | |
| download | perl-157fb5a14d10ed16ffc6ebfc43d2637a016fdfce.tar.gz | |
Introduce the double-diamond operator <<>>
This operator works like <> or <ARGV>, as it reads the list of file
names to open from the command-line arguments. However, it disables
the magic-open feature (that forks to execute piped commands) :
$ bleadperl -e 'while(<>){print}' 'echo foo |'
foo
$ bleadperl -e 'while(<<>>){print}' 'echo foo |'
Can't open echo foo |: No such file or directory at -e line 1.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1248,7 +1248,7 @@ #define newSTUB(a,b) Perl_newSTUB(aTHX_ a,b) #define newSVavdefelem(a,b,c) Perl_newSVavdefelem(aTHX_ a,b,c) #define newXS_len_flags(a,b,c,d,e,f,g) Perl_newXS_len_flags(aTHX_ a,b,c,d,e,f,g) -#define nextargv(a) Perl_nextargv(aTHX_ a) +#define nextargv(a,b) Perl_nextargv(aTHX_ a,b) #define oopsAV(a) Perl_oopsAV(aTHX_ a) #define oopsHV(a) Perl_oopsHV(aTHX_ a) #define op_const_sv(a,b) Perl_op_const_sv(aTHX_ a,b) |