Singleton attributes should't return empty listsbaserock/xfce-buildbaserock/morph

It should be possible to set up an array with
{ USER => $url->user, PASSWORD => $url->password }
without having to worry what $url->user and $url->password
will return empty lists when the element isn't present.

1 files changed, 2 insertions, 1 deletions

diff --git a/URI/_generic.pm b/URI/_generic.pm
index 979087b..d332756 100644
--- a/URI/_generic.pm
+++ b/URI/_generic.pm
@@ -148,7 +148,8 @@ sub abs
 	my $abs = $base->clone;
 	my $query = $self->query;
 	$abs->query($query) if defined $query;
-	$abs->fragment($self->fragment);
+	my $fragment = $self->fragment;
+	$abs->fragment($fragment) if defined $fragment;
 	return $abs;
     }