From d68a186d8948937755e24cf45dbbe1891e821461 Mon Sep 17 00:00:00 2001 From: Taku Amano Date: Mon, 27 Apr 2009 06:30:09 +0900 Subject: [PATCH] An unnecessary directory was deleted from the package. --- Build.PL | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/Build.PL b/Build.PL index b9cae48..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,12 +86,19 @@ 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))); } - rmdir(File::Spec->catfile($new_dist_dir, 'static')); } } } -- 2.11.0