summaryrefslogtreecommitdiffstats
path: root/perl-install/commands.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-18 21:41:07 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-18 21:41:07 +0000
commit0976d0441bee25d06260dad7b520173063e194ec (patch)
tree133061d9d342351265be9744522f91d5b5648e70 /perl-install/commands.pm
parenta3f0d48ce9bec90c2304166b1185ddb457a9775a (diff)
downloaddrakx-backup-do-not-use-0976d0441bee25d06260dad7b520173063e194ec.tar
drakx-backup-do-not-use-0976d0441bee25d06260dad7b520173063e194ec.tar.gz
drakx-backup-do-not-use-0976d0441bee25d06260dad7b520173063e194ec.tar.bz2
drakx-backup-do-not-use-0976d0441bee25d06260dad7b520173063e194ec.tar.xz
drakx-backup-do-not-use-0976d0441bee25d06260dad7b520173063e194ec.zip
no_comment
Diffstat (limited to 'perl-install/commands.pm')
-rw-r--r--perl-install/commands.pm3
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 <>
}