|
Lines 124-130
sub output {
Link Here
|
| 124 |
utf8_hashref($vars->{$k}); |
124 |
utf8_hashref($vars->{$k}); |
| 125 |
} |
125 |
} |
| 126 |
else { |
126 |
else { |
| 127 |
utf8::encode($vars->{$k}) if utf8::is_utf8($vars->{$k}); |
127 |
utf8::encode($vars->{$k}) if(utf8::decode($vars->{$k}) || utf8::is_utf8($vars->{$k})); |
| 128 |
} |
128 |
} |
| 129 |
} |
129 |
} |
| 130 |
my $data; |
130 |
my $data; |
|
Lines 145-151
sub utf8_arrayref {
Link Here
|
| 145 |
utf8_hashref($element); |
145 |
utf8_hashref($element); |
| 146 |
next; |
146 |
next; |
| 147 |
} |
147 |
} |
| 148 |
utf8::encode($element) if utf8::is_utf8($element); |
148 |
utf8::encode($element) if(utf8::decode($element) || utf8::is_utf8($element)); |
| 149 |
} |
149 |
} |
| 150 |
} |
150 |
} |
| 151 |
|
151 |
|
|
Lines 160-166
sub utf8_hashref {
Link Here
|
| 160 |
utf8_hashref($hashref->{$key}); |
160 |
utf8_hashref($hashref->{$key}); |
| 161 |
next; |
161 |
next; |
| 162 |
} |
162 |
} |
| 163 |
utf8::encode($hashref->{$key}) if utf8::is_utf8($hashref->{$key}); |
163 |
utf8::encode($hashref->{$key}) if(utf8::decode($hashref->{$key}) || utf8::is_utf8($hashref->{$key})); |
| 164 |
} |
164 |
} |
| 165 |
} |
165 |
} |
| 166 |
|
166 |
|
| 167 |
- |
|
|