diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-18 21:41:07 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-18 21:41:07 +0000 |
| commit | 0976d0441bee25d06260dad7b520173063e194ec (patch) | |
| tree | 133061d9d342351265be9744522f91d5b5648e70 /perl-install/commands.pm | |
| parent | a3f0d48ce9bec90c2304166b1185ddb457a9775a (diff) | |
| download | drakx-0976d0441bee25d06260dad7b520173063e194ec.tar drakx-0976d0441bee25d06260dad7b520173063e194ec.tar.gz drakx-0976d0441bee25d06260dad7b520173063e194ec.tar.bz2 drakx-0976d0441bee25d06260dad7b520173063e194ec.tar.xz drakx-0976d0441bee25d06260dad7b520173063e194ec.zip | |
no_comment
Diffstat (limited to 'perl-install/commands.pm')
| -rw-r--r-- | perl-install/commands.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm index 2ae11bf8e..a0a9053d6 100644 --- a/perl-install/commands.pm +++ b/perl-install/commands.pm @@ -40,9 +40,10 @@ sub rmdir_ { foreach (@_) { rmdir $_ or die "rmdir: can't remove $_\n" } } sub lsmod { print "Module Size Used by\n"; cat("/proc/modules"); } sub grep_ { - my ($h, $v) = getopts(\@_, qw(hv)); + my ($h, $v, $i) = getopts(\@_, qw(hvi)); @_ == 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 <> } |