| … | |
… | |
| 64 | } |
64 | } |
| 65 | |
65 | |
| 66 | if ($arch->{inventory}) { |
66 | if ($arch->{inventory}) { |
| 67 | my @oinv = |
67 | my @oinv = |
| 68 | grep { |
68 | grep { |
|
|
69 | my $o = $_; |
| 69 | not grep { $_->{slaying} ne $_ } |
70 | not grep { $o->{slaying} eq $_ } |
| 70 | ('/python/IPO/board.py', '/python/IPO/say.py', '/python/IPO/banksay.py') |
71 | ('/python/IPO/board.py', '/python/IPO/say.py', '/python/IPO/banksay.py') |
| 71 | } @{$arch->{inventory}}; |
72 | } @{$arch->{inventory}}; |
| 72 | $patched++ if @oinv < @{$arch->{inventory}}; |
73 | $patched++ if @oinv < @{$arch->{inventory}}; |
| 73 | @{$arch->{inventory}} = @oinv; |
74 | @{$arch->{inventory}} = @oinv; |
| 74 | } |
75 | } |
