From 781a568e08045caf7cbe71fbd31f35d42ecdf0a4 Mon Sep 17 00:00:00 2001 From: Taku Amano Date: Sun, 10 May 2009 09:44:34 +0900 Subject: [PATCH] Fixed a bug that creates directory without necessity. --- Build.PL | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/Build.PL b/Build.PL index cad1022..3661bb5 100644 --- a/Build.PL +++ b/Build.PL @@ -76,9 +76,6 @@ my $class = Module::Build->subclass( my $plugins = File::Spec->catfile($dist_dir, 'plugins'); mkpath($plugins, 1, 0755); - my $static = File::Spec->catfile($dist_dir, 'mt-static/plugins'); - mkpath($static, 1, 0755); - my $new_dist_dir = File::Spec->catfile( $plugins, $self->{properties}{dist_name} ); @@ -89,8 +86,16 @@ my $class = Module::Build->subclass( } if (my @statics = glob(File::Spec->catfile($new_dist_dir, 'static/*'))) { - my $d = File::Spec->catfile($static, $self->{properties}{dist_name}); + my $static = File::Spec->catfile( + $dist_dir, 'mt-static/plugins' + ); + mkpath($static, 1, 0755); + + my $d = File::Spec->catfile( + $static, $self->{properties}{dist_name} + ); mkpath($d, 1, 0755); + foreach my $f (@statics) { rename($f, File::Spec->catfile($d, basename($f))); } -- 2.11.0