grep -F versus stdin (#641)

* ARGV list was supposed to have the value '-' added if it was empty
* I noticed that grep would simply exit for the following test: echo hello1 | perl grep -F 1
* In this usage the argument "1" is shifted off ARGV list and the code to reset ARGV was happening too late (problem caused by recent grep -F code addition)

Author: mknos

bin/grep

@@ -176,6 +176,7 @@ sub parse_args {
 			}
 		@patterns = ($pattern);
 		}
+	@ARGV = ($opt{'r'} ? '.' : '-') unless @ARGV;
 
 	if ( $opt{H} || $opt{u} ) {    # highlight or underline
 		my $term = $ENV{TERM} || 'vt100';
@@ -244,8 +245,6 @@ sub parse_args {
 	$opt{c}   += $opt{C};
 	$opt{1}   += $opt{'s'} && !$opt{c};                                                       # that's a one
 
-	@ARGV = ( $opt{r} ? '.' : '-' ) unless @ARGV;
-
 	$match_code .= 'study;' if @patterns > 5;    # might speed things up a bit
 
 	foreach (@patterns) {s(/)(\\/)g}