diff options
| -rw-r--r-- | perl-install/commands.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm index c6f8100e9..291161943 100644 --- a/perl-install/commands.pm +++ b/perl-install/commands.pm @@ -50,7 +50,7 @@ sub grep_ { @_ == 0 || $h and die "usage: grep <regexp> [files...]\n"; my $r = shift; $r = qr/$r/i if $i; - @ARGV = @_; (/$r/ ? $v || print : $v && print) while <> + @ARGV = @_; (/$r/ ? $v || print : $v && print) while <>; } sub tr_ { |