next if (! $t);
my ($sf,$v) = (substr($t,0,1), substr($t,1));
# XXX this might be option, but why?
- next unless ($v);
+ next unless (defined($v) && $v ne '');
# warn "### $f_nr^$sf:$v",$/ if ($self->{debug} > 1);
if (ref( $val->{$sf} ) eq 'ARRAY') {