Copy minimal files from messagepack-c as possible

It has C++ header files and needless header files for Data::MessagePack.

Makefile.PL

@@ -123,21 +123,33 @@ sub init_msgpack {
     require File::Copy::Recursive;
 
     File::Path::rmtree([qw(include t/std)]);
-    File::Path::mkpath([qw(include/msgpack t/std)]);
 
-    for my $src (<msgpack-c/include/msgpack*>) {
-        next if $src =~ m/^\.\.?$/;
-
-
-        print "AuthorMode: copy $src to include/msgpack\n";
-        if (-d $src) {
-            File::Copy::Recursive::rcopy($src, 'include/msgpack') or die "copy failed: $!";
-        } else {
-            File::Copy::copy($src, 'include/msgpack') or die "copy failed: $!";
+    my %msgpack_header = (
+        'include'                => ['msgpack-c/include/msgpack.h'],
+        'include/msgpack'        => [<msgpack-c/include/msgpack/pack*.h>,
+                                     <msgpack-c/include/msgpack/unpack*.h>,
+                                     'msgpack-c/include/msgpack/sysdep.h',
+                                     'msgpack-c/include/msgpack/predef.h'],
+        'include/msgpack/predef' => ['msgpack-c/include/msgpack/predef'],
+    );
+
+    while (my ($dest, $srcs) = each %msgpack_header) {
+        File::Path::mkpath([$dest]);
+
+        for my $src (@{$srcs}) {
+            next if $src =~ m/^\.\.?$/;
+            print "AuthorMode: copy $src to $dest\n";
+
+            if (-d $src) {
+                File::Copy::Recursive::dircopy($src, "$dest/") or die "copy failed: $!";
+            } else {
+                File::Copy::copy($src, $dest) or die "copy failed: $!";
+            }
         }
     }
 
-    for my $src(<msgpack-c/test/*.mpac msgpack-c/*.json>) {
+    File::Path::mkpath([qw(t/std)]);
+    for my $src(<msgpack-c/test/*.mpac>) {
         print "AuthorMode: copy $src to t/std/\n";
         File::Copy::copy($src, 't/std') or die "copy failed: $!";
     }