| # | Line 678 | Line 678 | sub AssociateGroup { | |
|---|---|---|
| 678 | my $string=shift; | |
| 679 | my $word; | |
| 680 | ||
| 681 | + | if ( $self->{Arch} ) { |
| 682 | foreach $word ( (split /\s/, $string) ){ | |
| 683 | chomp $word; | |
| 684 | next if /^#/; | |
| # | Line 685 | Line 686 | sub AssociateGroup { | |
| 686 | $self->{ignore}=1; | |
| 687 | } | |
| 688 | } | |
| 689 | + | } |
| 690 | } | |
| 691 | ||
| 692 | sub Arch_Start { | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |