|
Lines 94-100
if ($command =~ /^(f|se)/i)
Link Here
|
| 94 |
{ |
94 |
{ |
| 95 |
chomp; |
95 |
chomp; |
| 96 |
($file, $package) = split /\t/; |
96 |
($file, $package) = split /\t/; |
| 97 |
next unless $file =~ /$pattern/; |
97 |
next unless $file =~ /$pattern/i; |
| 98 |
# output each package name only once |
98 |
# output each package name only once |
| 99 |
next if grep(/$package/, @pkglist); |
99 |
next if grep(/$package/, @pkglist); |
| 100 |
push @pkglist, $package; |
100 |
push @pkglist, $package; |
|
Lines 114-120
elsif ($command =~ /^(l|sh)/i)
Link Here
|
| 114 |
{ |
114 |
{ |
| 115 |
chomp; |
115 |
chomp; |
| 116 |
($file, $package) = split /\t/; |
116 |
($file, $package) = split /\t/; |
| 117 |
next unless $package =~ /$pattern/; |
117 |
next unless $package =~ /$pattern/i; |
| 118 |
print "$package:\t$file\n"; |
118 |
print "$package:\t$file\n"; |
| 119 |
} |
119 |
} |
| 120 |
close INDEX; |
120 |
close INDEX; |
