r822@llin: dpavlin | 2006-07-09 17:14:07 +0200

 prefix doesn't die if first parametar is undef

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

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index 37acd66..d03b8e0 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -710,7 +710,7 @@ Prefix all values with a string
 =cut
 
 sub prefix {
-       my $p = shift or die "prefix needs string as first argument";
+       my $p = shift or return;
        return map { $p . $_ } grep { defined($_) } @_;
 }