tools/export.pl

diff --git a/tools/export.pl b/tools/export.pl
index 46f50c03ab0e3710b8b52ee5a4776bebe68269d7..960a9bae9b55dae9c94dd81ea1022db4cc0a47e1 100644 (file)
--- a/tools/export.pl
+++ b/tools/export.pl
@@ -4,8 +4,9 @@ use Smart::Comments;
 use lib 'tools';
 require 'utils.pl';
 use File::Spec;
-use File::Compare;
-use File::Copy;
+use File::Compare qw(compare);
+use File::Copy qw(copy);
+use File::Path qw(mkpath);
 
 sub main {
     while (defined(my $arg = <>)) {
@@ -31,6 +32,9 @@ sub main {
         }
         else {
             print "Copying $saved to $abs...\n";
+            my @path = File::Spec->splitdir($abs);
+            pop @path;
+            mkpath(File::Spec->catdir(@path));
             copy($saved, $abs) or die $!;
         }
     }