r356@llin: dpavlin | 2006-01-07 01:05:14 +0100

 fix failing test

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

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index 847865a..74a769f 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -358,7 +358,7 @@ sub parse {
                        $found_any->{$fld_type} += $found;
 
                        # we will skip delimiter before first occurence of field!
-                       push @out, $del unless($found_any == 1);
+                       push @out, $del unless($found_any->{$fld_type} == 1);
                        push @out, $tmp;
                }
                $f_step++;