|
Lines 117-123
sub output {
Link Here
|
| 117 |
utf8_hashref($vars->{$k}); |
117 |
utf8_hashref($vars->{$k}); |
| 118 |
} |
118 |
} |
| 119 |
else { |
119 |
else { |
| 120 |
utf8::encode($vars->{$k}) if utf8::is_utf8($vars->{$k}); |
120 |
# utf8::encode($vars->{$k}) if utf8::is_utf8($vars->{$k}); |
| 121 |
} |
121 |
} |
| 122 |
} |
122 |
} |
| 123 |
my $data; |
123 |
my $data; |
|
Lines 138-144
sub utf8_arrayref {
Link Here
|
| 138 |
utf8_hashref($element); |
138 |
utf8_hashref($element); |
| 139 |
next; |
139 |
next; |
| 140 |
} |
140 |
} |
| 141 |
utf8::encode($element) if utf8::is_utf8($element); |
141 |
# utf8::encode($element) if utf8::is_utf8($element); |
| 142 |
} |
142 |
} |
| 143 |
} |
143 |
} |
| 144 |
|
144 |
|
|
Lines 153-159
sub utf8_hashref {
Link Here
|
| 153 |
utf8_hashref($hashref->{$key}); |
153 |
utf8_hashref($hashref->{$key}); |
| 154 |
next; |
154 |
next; |
| 155 |
} |
155 |
} |
| 156 |
utf8::encode($hashref->{$key}) if utf8::is_utf8($hashref->{$key}); |
156 |
# utf8::encode($hashref->{$key}) if utf8::is_utf8($hashref->{$key}); |
| 157 |
} |
157 |
} |
| 158 |
} |
158 |
} |
| 159 |
|
159 |
|