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 |
- |
|
|