r630@llin: dpavlin | 2006-05-14 13:10:04 +0200

 join_with now skips elements without a value ('' or undef)

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@486 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Normalize/Set.pm b/lib/WebPAC/Normalize/Set.pm
index 8ba7a8f..70a5652 100644 (file)
--- a/lib/WebPAC/Normalize/Set.pm
+++ b/lib/WebPAC/Normalize/Set.pm
@@ -276,7 +276,7 @@ Joins walues with some delimiter
 
 sub join_with {
        my $d = shift;
-       return join($d, @_);
+       return join($d, grep { defined($_) && $_ ne '' } @_);
 }
 
 # END