Changeset 1631

Show
Ignore:
Timestamp:
08/30/06 01:47:07
Author:
miyagawa
Message:

fixed order of plugin dependencies check to prioritize default plugin, otherwise alphabetically

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/plagger/Makefile.PL

    r1614 r1631  
    7171 
    7272my $dh = DirHandle->new("deps"); 
     73my @plugins; 
    7374while (my $f = $dh->read) { 
    7475    next unless $f =~ /\.yaml$/; 
    7576    my $meta = YAML::LoadFile( File::Spec->catfile("deps", $f) ); 
     77    push @plugins, $meta if !$meta->{platform} || $meta->{platform} eq $^O; 
     78} 
    7679 
    77     if (!$meta->{platform} || $meta->{platform} eq $^O) { 
    78         features( 
    79             $meta->{name}, [ 
    80                 -default => $meta->{default}, 
    81                 map recommends($_ => $meta->{depends}->{$_}), keys %{$meta->{depends} || {}}, 
    82             ], 
    83         ); 
    84     } 
     80for my $meta (sort { $b->{default} <=> $a->{default} || $a->{name} cmp $b->{name} } @plugins) { 
     81    features( 
     82        $meta->{name}, [ 
     83            -default => $meta->{default}, 
     84            map recommends($_ => $meta->{depends}->{$_}), keys %{$meta->{depends} || {}}, 
     85        ], 
     86    ); 
    8587} 
    8688