convert the xml copying script to handle translated but unmodded files

_build_translation_patch.pl

@@ -19,7 +19,7 @@ sub run {
     call "translate_utf8_binary.pl @opt";
     call "modify_fonts_and_inject.pl";
     call "mod_textures.pl";
-    call "copy_xml_to_modded.pl";
+    call "copy_unmodded_files.pl";
     call "import_files_to_assets.pl";
     try_copy();
 

copy_unmodded_files.pl

@@ -0,0 +1,27 @@
+use 5.020;
+use strictures 2;
+use IO::All -binary;
+use Capture::Tiny 'capture';
+
+$|++;
+run();
+
+sub run {
+    say "copying translated unmodded files";
+    for my $set (    #
+        [ "xml", "en/Xml/tables/master",         "Media/StreamingAssets/Xml/tables/master/" ],
+        [ "png", "en/sce_sys",                   "sce_sys/" ],
+        [ "png", "en/sce_sys/livearea/contents", "sce_sys/livearea/contents/" ],
+      )
+    {
+        my ( $ext, $src, $tgt ) = $set->@*;
+        my @files = grep /\.$ext$/, io($src)->all_files;
+        for my $file (@files) {
+            die "didn't find file '$file' in original game" if !-e "../kc_original/$tgt" . $file->filename;
+            my $target_file = "../kc_original_unpack_modded/$tgt" . $file->filename;
+            io( io->file($target_file)->filepath )->mkpath;
+            $file->copy($target_file);
+        }
+    }
+    say "done";
+}

import_files_to_assets.pl

@@ -62,7 +62,7 @@ sub run {
     my $sub_path = "repatch/PCSG00684/";
     say "moving to $sub_path";
     io("$target_dir/$sub_path/")->mkpath;
-    io($media_dir)->rename("$target_dir/$sub_path/Media");
+    $_->rename( "$target_dir/$sub_path/" . $_->filename ) for io($target_dir)->all_dirs;
 
     say "done";
     return;