From 0976d0441bee25d06260dad7b520173063e194ec Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 18 Sep 1999 21:41:07 +0000
Subject: no_comment

---
 perl-install/commands.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/commands.pm')

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 <> 
 }
 
-- 
cgit v1.2.1