|
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; |
