Changeset 4934

Timestamp:

10/30/09 02:10:14 (4 weeks ago)

Author:

asawada

Message:

Decode from system filename to utf8 before encoding. bugzid:102920.

Files:

• branches/greyhound/lib/MT/Util/Archive/Tgz.pm (modified) (1 diff)

branches/greyhound/lib/MT/Util/Archive/Tgz.pm

@@ -129 +129 @@
     return $obj->error(MT->translate('Can\'t write to the object'))
         if 'r' eq $obj->{_mode};
-    $file_path = Encode::encode_utf8($file_path)
-        if Encode::is_utf8($file_path);
+    my $encoded_path = $file_path;
+    $encoded_path = MT::FileMgr::Local::_syserr($encoded_path)
+        if !Encode::is_utf8($encoded_path);
+    $encoded_path = Encode::encode_utf8($encoded_path)
+        if Encode::is_utf8($encoded_path);
     my $filename =
         File::Spec->catfile( $path, $file_path );
     my $arc = $obj->{_arc};
     my @arc_files = $arc->add_files($filename);
-    $arc_files[0]->rename( $file_path );
+    $arc_files[0]->rename( $encoded_path );
 }