[Bps-public-commit] r18482 - in Shipwright/trunk: lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Feb 19 20:44:13 2009
New Revision: 18482

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

Log:
 r19965 at sunnavys-mb:  sunnavy | 2009-02-20 09:40:33 +0800
 seems M::I has changed something while handling features, update Shipwright accordingly


Modified: Shipwright/trunk/lib/Shipwright/Source/Base.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/Base.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/Base.pm	Thu Feb 19 20:44:13 2009
@@ -171,7 +171,11 @@
 #     ],
 # );
                for ( my $j = 0; $j < @{$mods->[$i]}; $j++ ) {
-                    if ( $mods->[$i][$j+1] =~ /^[\d\.]*$/ ) {
+                    if ( ref $mods->[$i][$j] eq 'ARRAY' ) {
+                        $shipwright_req->{recommends}{$mods->[$i][$j][0]} 
+                            = $mods->[$i][$j][1] || 0;
+                    }
+                    elsif ( $mods->[$i][$j+1] =~ /^[\d\.]*$/ ) {
                         $shipwright_req->{recommends}{$mods->[$i][$j]} 
                             = $mods->[$i][$j+1] || 0;
                         $j++;