Revision efd3ab01
Von Sven Schöling vor fast 13 Jahren hinzugefügt
SL/Request.pm | ||
---|---|---|
153 | 153 |
# though. |
154 | 154 |
$to->{$key} = $iconv->convert("" . $from->{$key}); |
155 | 155 |
} else { |
156 |
$to->{$key} = {} if 'HASH' eq ref $from->{$key}; |
|
157 |
$to->{$key} = [] if 'ARRAY' eq ref $from->{$key}; |
|
156 |
$to->{$key} ||= {} if 'HASH' eq ref $from->{$key};
|
|
157 |
$to->{$key} ||= [] if 'ARRAY' eq ref $from->{$key};
|
|
158 | 158 |
_recode_recursively($iconv, $from->{$key}, $to->{$key}); |
159 | 159 |
} |
160 | 160 |
} |
... | ... | |
167 | 167 |
# though. |
168 | 168 |
$from->[$idx] = $iconv->convert("" . $from->[$idx]); |
169 | 169 |
} else { |
170 |
$to->[$idx] = {} if 'HASH' eq ref $from->[$idx]; |
|
171 |
$to->[$idx] = [] if 'ARRAY' eq ref $from->[$idx]; |
|
170 |
$to->[$idx] ||= {} if 'HASH' eq ref $from->[$idx];
|
|
171 |
$to->[$idx] ||= [] if 'ARRAY' eq ref $from->[$idx];
|
|
172 | 172 |
_recode_recursively($iconv, $from->[$idx], $to->[$idx]); |
173 | 173 |
} |
174 | 174 |
} |
Auch abrufbar als: Unified diff
Autovification sollte auch genau das tun, und nicht clobbern.