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 |