Changeset 2196

Timestamp:

12/24/08 23:22:20 (3 years ago)

Author:

azawawi

Message:

Fix to ticket #187. (http://padre.perlide.org/ticket/187)

File:

• trunk/Padre/lib/Padre/Wx/Output.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Wx/Output.pm

@@ -41 +41 @@
 sub AppendText {
     my ($self, $text) = @_;
-    my $string = decode("utf8", $text);
+    my $string = utf8::is_utf8($text) ? $text : decode('utf8', $text);
     $self->SUPER::AppendText($string);
 }