diff options
| author | Maarten Vanraes <alien@mageia.org> | 2016-05-16 17:56:41 +0200 |
|---|---|---|
| committer | Maarten Vanraes <alien@mageia.org> | 2016-05-16 17:56:41 +0200 |
| commit | 385ab2ad6064eb8ff8825538c367c250395eb270 (patch) | |
| tree | c516d082beb19be173aa406eed33f51e04f126a9 | |
| parent | 0bbc002d53ba97c0a932b8ecb8b6315adbc9eea0 (diff) | |
| download | manatools-385ab2ad6064eb8ff8825538c367c250395eb270.tar manatools-385ab2ad6064eb8ff8825538c367c250395eb270.tar.gz manatools-385ab2ad6064eb8ff8825538c367c250395eb270.tar.bz2 manatools-385ab2ad6064eb8ff8825538c367c250395eb270.tar.xz manatools-385ab2ad6064eb8ff8825538c367c250395eb270.zip | |
filter out undef out of reverse tags
| -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); |