summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-06-11 16:33:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-06-11 16:33:04 +0000
commitbd1cb2f93661d1c635551be7adb5cf2bc6299f13 (patch)
tree59bf1b28a6cb29d36052a1c12c317076b9a19e46
parent4cece7d7fc7b2735e7920dbbd7f5e8f1d2a03f93 (diff)
downloaddrakx-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.pm2
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_ {