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