Parent Directory | Revision Log | Patch
revision 66 by dpavlin, Fri Aug 25 10:20:58 2006 UTC | revision 67 by dpavlin, Fri Aug 25 16:35:47 2006 UTC | |
---|---|---|
# | Line 599 sub to_hash { | Line 599 sub to_hash { |
599 | next if (! $t); | next if (! $t); |
600 | my ($sf,$v) = (substr($t,0,1), substr($t,1)); | my ($sf,$v) = (substr($t,0,1), substr($t,1)); |
601 | # XXX this might be option, but why? | # XXX this might be option, but why? |
602 | next unless ($v); | next unless (defined($v) && $v ne ''); |
603 | # warn "### $f_nr^$sf:$v",$/ if ($self->{debug} > 1); | # warn "### $f_nr^$sf:$v",$/ if ($self->{debug} > 1); |
604 | ||
605 | if (ref( $val->{$sf} ) eq 'ARRAY') { | if (ref( $val->{$sf} ) eq 'ARRAY') { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |