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.