r610@llin: dpavlin | 2006-05-13 14:38:42 +0200

 permit setup of empty lookup

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

diff --git a/lib/WebPAC/Normalize/Set.pm b/lib/WebPAC/Normalize/Set.pm
index 3b14a4a..8ba7a8f 100644 (file)
--- a/lib/WebPAC/Normalize/Set.pm
+++ b/lib/WebPAC/Normalize/Set.pm
@@ -143,7 +143,7 @@ Set current lookup hash
 my $lookup;
 
 sub set_lookup {
-       $lookup = shift or die "no lookup hash";
+       $lookup = shift;
 }
 
 =head2 rec1