Changeset 21782

Timestamp:

10/21/08 15:49:05 (5 years ago)

Author:

yappo

Message:

install_flavor には flavor name を渡さなくてもよい

Files:

• lang/perl/Module-Setup/trunk/lib/Module/Setup.pm (modified) (3 diffs)

lang/perl/Module-Setup/trunk/lib/Module/Setup.pm

@@ -226 +226 @@
 
 sub install_flavor {
-    my($self, $name, $tmpl) = @_;
+    my($self, $tmpl) = @_;
 
     my $flavor = $self->base_dir->flavor;
@@ -236 +236 @@
     } elsif (exists $tmpl->{plugin} && $tmpl->{plugin}) {
         $path = $flavor->plugins->path_to(split '/', $tmpl->{plugin});
+    } else {
+        return;
     }
 
@@ -267 +269 @@
             $config = $tmpl->{config};
         } else {
-            $self->install_flavor($name, $tmpl);
+            $self->install_flavor($tmpl);
         }
     }