[Bps-public-commit] r16208 - in Shipwright/trunk: lib/Shipwright/Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Oct  3 01:39:39 2008
New Revision: 16208

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Backend/Base.pm

Log:
 r17007 at sunnavys-mb:  sunnavy | 2008-10-03 13:38:41 +0800
 fix a fiddle_order's bug


Modified: Shipwright/trunk/lib/Shipwright/Backend/Base.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/Base.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/Base.pm	Fri Oct  3 01:39:39 2008
@@ -322,12 +322,17 @@
 
             if ( $maker eq 'cpan-Module-Build' ) {
 
+                my @maker_recommends; 
                 # cpan-Regexp-Common is the dep of cpan-Pod-Readme
-                my @maker_recommends = (
+                for my $r (
                     'cpan-Regexp-Common', 'cpan-Pod-Readme',
                     'cpan-version',       'cpan-ExtUtils-CBuilder',
-                    'cpan-Archive-Tar',   'cpan-ExtUtils-ParseXS'
-                );
+                    'cpan-Archive-Tar',   'cpan-ExtUtils-ParseXS',
+                  )
+                {
+                    push @maker_recommends, $r if grep { $r eq $_ } @$order;
+                }
+
                 my %maker_recommends = map { $_ => 1 } @maker_recommends;
                 @$order = grep { $maker_recommends{$_} ? 0 : 1 } @$order;
                 splice @$order, $first_cpan_index + 1, 0, @maker_recommends;