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