r417@llin: dpavlin | 2006-01-08 23:21:35 +0100

 fixed another corner-case

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

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index c210a12..3dc5b5f 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -551,7 +551,7 @@ sub _rec_to_arr {
                if (@v) {
                        push @arr, @v;
                } else {
-                       push @arr, '';
+                       push @arr, '' if ($max > $i);
                }
        }
 

diff --git a/t/3-normalize-xml.t b/t/3-normalize-xml.t
index ea357ce..b78446a 100755 (executable)
--- a/t/3-normalize-xml.t
+++ b/t/3-normalize-xml.t
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-use Test::More tests => 132;
+use Test::More tests => 140;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -248,8 +248,9 @@ $import = {
        'Tag_s1' => { 'isis' => [
                { content => 'v900^a = v900^c' },
        ] },
-       'Tag_s2' => { 'isis' => [
-               { content => 's900^a s900^b s900^c s900^x' },
+       'Tag_noval' => { 'isis' => [
+               { content => 'v911^1' },
+               { content => 'v900^c' },
        ] },
 };
 
@@ -258,4 +259,5 @@ parse_test_arr($import, 'Tag_b', $rec, [ 'b1','b2','b3','b4' ] );
 parse_test_arr($import, 'Tag_c', $rec, [ '','','c1','c2' ] );
 parse_test_arr($import, 'Tag_x', $rec, [ 'b1','a1_b2','b3_c1','a2_b4_c2' ] );
 parse_test_arr($import, 'Tag_s1', $rec, [ '', 'a1', 'c1', 'a2 = c2' ] );
+parse_test_arr($import, 'Tag_noval', $rec, [ '','','c1','c2' ] );