diff options
Diffstat (limited to 'lib/ManaTools/Shared/disk_backend/Part.pm')
| -rw-r--r-- | lib/ManaTools/Shared/disk_backend/Part.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/ManaTools/Shared/disk_backend/Part.pm b/lib/ManaTools/Shared/disk_backend/Part.pm index f2949cfb..99bb1a50 100644 --- a/lib/ManaTools/Shared/disk_backend/Part.pm +++ b/lib/ManaTools/Shared/disk_backend/Part.pm @@ -247,7 +247,7 @@ sub add_link { my $self = shift; my $part = shift; my @tags = @_; - my @rtags = map { _reverse_tag($_) } @tags; + my @rtags = grep { defined $_ } map { _reverse_tag($_) } @tags; my $partlink1 = $self->_add_partlink($part, @tags); my $partlink2 = $part->_add_partlink($self, @rtags); return ($partlink1, $partlink2); @@ -257,7 +257,7 @@ sub add_taglink { my $self = shift; my $part = shift; my @tags = @_; - my @rtags = map { _reverse_tag($_) } @tags; + my @rtags = grep { defined $_ } map { _reverse_tag($_) } @tags; # partlink1 my $partlink1 = $self->find_link($part); @@ -338,7 +338,7 @@ sub remove_taglinks { my $self = shift; my $part = shift; my @tags = @_; - my @rtags = map { _reverse_tag($_) } @tags; + my @rtags = grep { defined $_ } map { _reverse_tag($_) } @tags; # partlink1 my $partlink1 = $self->find_link($part); |