[Bps-public-commit] r10588 - bpsbuilder/Shipwright/lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Jan 30 12:04:58 2008
New Revision: 10588

Modified:
   bpsbuilder/Shipwright/lib/Shipwright/Source/Base.pm

Log:
comment the find dep logic from META.yml

Modified: bpsbuilder/Shipwright/lib/Shipwright/Source/Base.pm
==============================================================================
--- bpsbuilder/Shipwright/lib/Shipwright/Source/Base.pm	(original)
+++ bpsbuilder/Shipwright/lib/Shipwright/Source/Base.pm	Wed Jan 30 12:04:58 2008
@@ -102,25 +102,19 @@
                 }
             }
 
-      # Makefile doesn't have recommends or build_requires stuff, we need to fix
-      # that accroding to META.yml
-            my $meta_path = File::Spec->catfile( $path, 'META.yml' );
-            if ( -e $meta_path ) {
-                my $meta = Shipwright::Config::LoadFile($meta_path);
-
-                for (qw/recommends build_requires/) {
-                    my $keep = 'keep_' . $_;
-                    if ( $meta->{$_} ) {
-                        for my $module ( keys %{ $meta->{$_} } ) {
-                            next unless defined $require->{requires}{$module};
-                            my $version = delete
-                                $require->{requires}{$module};
-                            $require->{$_}{$module} = $version
-                              if $self->$keep;
-                        }
-                    }
-                }
-            }
+#      # Makefile doesn't have recommends or build_requires stuff, we need to fix
+#      # that accroding to META.yml
+#            my $meta_path = File::Spec->catfile( $path, 'META.yml' );
+#            if ( -e $meta_path ) {
+#                my $meta = Shipwright::Config::LoadFile($meta_path);
+#
+#                for (qw/recommends build_requires/) {
+#                    my $keep = 'keep_' . $_;
+#                    if ( $self->$keep && $meta->{$_} && ! $require->{$_} ) {
+#                        $require->{$_} = $meta->{$_};
+#                    }
+#                }
+#            }
 
             Shipwright::Util->run( [ 'rm', 'Makefile' ] );
         }