Changeset 35436 for lang/perl

Timestamp:

09/20/09 17:31:27 (4 years ago)

Author:

vkgtaro

Message:

プログラム内で $YAML::Syck::ImplicitUnicode? = 1 されていたときの対処。Encode::decode_utf8() を使えば、すでに flagged なのをかけてもただコピーされるだけらしい。

Location:

lang/perl/Config-Multi/trunk

Files:

• lib/Config/Multi.pm (modified) (1 diff)
• t/08-unicode-option-with-yaml-syck.t (added)

lang/perl/Config-Multi/trunk/lib/Config/Multi.pm

@@ -60 +60 @@
     if ( $self->unicode ) {
         my $dve = Data::Visitor::Encode->new();
-        $config = $dve->decode('utf8', $config);
+        $config = $dve->decode_utf8($config);
     }