| … | … | ||
|---|---|---|---|
| 665 | _attach $registry, $klass, @attach; | 665 | _attach $registry, $klass, @attach; |
| 666 | } | 666 | } |
| 667 | 667 | ||
| 668 | $obj->{$name} = \%arg; | 668 | $obj->{$name} = \%arg; |
| 669 | } else { | 669 | } else { |
| 670 | warn "object uses attachment '$name' that is not available, postponing.\n"; | 670 | warn "object uses attachment '$name' which is not available, postponing.\n"; |
| 671 | } | 671 | } |
| 672 | 672 | ||
| 673 | $obj->{_attachment}{$name} = undef; | 673 | $obj->{_attachment}{$name} = undef; |
| 674 | } | 674 | } |
| 675 | 675 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |