From 385ab2ad6064eb8ff8825538c367c250395eb270 Mon Sep 17 00:00:00 2001
From: Maarten Vanraes <alien@mageia.org>
Date: Mon, 16 May 2016 17:56:41 +0200
Subject: filter out undef out of reverse tags

---
 lib/ManaTools/Shared/disk_backend/Part.pm | 6 +++---
 1 file 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);
-- 
cgit v1.2.1