Changeset 16422

Timestamp:

07/25/08 19:50:36 (5 years ago)

Author:

tomyhero

Message:

lang/perl/FormValidator-LazyWay? : 配列のundefが消されていなかった不具合対応

Files:

• lang/perl/FormValidator-LazyWay/trunk/lib/FormValidator/LazyWay/Utils.pm (modified) (1 diff)

lang/perl/FormValidator-LazyWay/trunk/lib/FormValidator/LazyWay/Utils.pm

@@ -54 +54 @@
                     and $valid->{$field}->[$i] !~ /^\x00$/ );
             }
+
+            my @tmp_valid = ();
+            for my $item( @{ $valid->{$field} } ) {
+                push @tmp_valid , $item if defined $item;
+            }
+            $valid->{$field} = \@tmp_valid;
 
             # If all fields are empty, we delete it.