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.

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 014ec425e5..95a709b0e4 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2124,7 +2124,7 @@ PP(pp_eof)
 		    GvSV(gv) = newSVpvs("-");
 		SvSETMAGIC(GvSV(gv));
 	    }
-	    else if (!nextargv(gv))
+	    else if (!nextargv(gv, FALSE))
 		RETPUSHYES;
 	}
     }