diff options
Diffstat (limited to 'src/MTools/Comp/MAntiRecouvrement.pm')
| -rw-r--r-- | src/MTools/Comp/MAntiRecouvrement.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/MTools/Comp/MAntiRecouvrement.pm b/src/MTools/Comp/MAntiRecouvrement.pm index 04d7caa..b54f669 100644 --- a/src/MTools/Comp/MAntiRecouvrement.pm +++ b/src/MTools/Comp/MAntiRecouvrement.pm @@ -97,6 +97,7 @@ sub addObject { sub removeObject { my ($self, $target) = @_; + return if (!defined $self -> {__objects}); for (my $i = @{$self -> {__objects}} - 1; $i >= 0; $i --) { if (@{$self -> {__objects}} [$i] eq $target) |