OSDN Git Service

An unnecessary directory was deleted from the package.
authorTaku Amano <taku@toi-planning.net>
Sun, 26 Apr 2009 21:22:33 +0000 (06:22 +0900)
committerTaku Amano <taku@toi-planning.net>
Sun, 26 Apr 2009 21:22:33 +0000 (06:22 +0900)
Build.PL

index cad1022..3661bb5 100644 (file)
--- 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)));
                                }