diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-06-11 16:33:04 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-06-11 16:33:04 +0000 |
| commit | bd1cb2f93661d1c635551be7adb5cf2bc6299f13 (patch) | |
| tree | 59bf1b28a6cb29d36052a1c12c317076b9a19e46 | |
| parent | 4cece7d7fc7b2735e7920dbbd7f5e8f1d2a03f93 (diff) | |
| download | drakx-bd1cb2f93661d1c635551be7adb5cf2bc6299f13.tar drakx-bd1cb2f93661d1c635551be7adb5cf2bc6299f13.tar.gz drakx-bd1cb2f93661d1c635551be7adb5cf2bc6299f13.tar.bz2 drakx-bd1cb2f93661d1c635551be7adb5cf2bc6299f13.tar.xz drakx-bd1cb2f93661d1c635551be7adb5cf2bc6299f13.zip | |
(grep_): add a missing semi-colon
| -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_ { |