| … | |
… | |
| 234 | |
234 | |
| 235 | for (@_) { |
235 | for (@_) { |
| 236 | if ("ARRAY" eq ref) { |
236 | if ("ARRAY" eq ref) { |
| 237 | $self->postprocess (@$_); |
237 | $self->postprocess (@$_); |
| 238 | } elsif ("HASH" eq ref) { |
238 | } elsif ("HASH" eq ref) { |
|
|
239 | if (exists $_->{_text}) { |
| 239 | if (my $value = $_->{_text}) { |
240 | my $value = $_->{_text}; |
| 240 | $value =~ s/\\\n/ /g; |
241 | $value =~ s/\\\n/ /g; |
| 241 | $value =~ s/\\(.)/$1/g; |
242 | $value =~ s/\\(.)/$1/g; |
| 242 | $_ = eval { Encode::decode $self->{CA}, $value } || $value |
243 | $_ = eval { Encode::decode $self->{CA}, $value } || $value; |
| 243 | } else { |
244 | } else { |
| 244 | $self->postprocess (values %$_); |
245 | $self->postprocess (values %$_); |
| 245 | } |
246 | } |
| 246 | } |
247 | } |
| 247 | } |
248 | } |
