[Bps-public-commit] r19021 - Shipwright/trunk/lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Apr  2 02:26:11 2009
New Revision: 19021

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

Log:
added recommends support for Module::Install

Modified: Shipwright/trunk/lib/Shipwright/Source/Base.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/Base.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/Base.pm	Thu Apr  2 02:26:11 2009
@@ -176,6 +176,7 @@
                 $makefile =~ s/^\s*requires(?!\w)/shipwright_requires/mg;
                 $makefile =~
                   s/^\s*build_requires(?!\w)/shipwright_build_requires/mg;
+                $makefile =~ s/^\s*recommends(?!\w)/shipwright_recommends/mg;
                 $makefile =~ s/^\s*features(?!\w)/shipwright_features/mg;
                 $makefile =~ s/^\s*feature(?!\w)/shipwright_feature/mg;
                 my $shipwright_makefile = <<'EOF';
@@ -199,6 +200,11 @@
     goto &build_requires;
 }
 
+sub shipwright_recommends {
+    _shipwright_requires( 'recommends', @_ == 1 ? ( @_, 0 ) : @_ );
+    goto &recommends;
+}
+
 sub shipwright_feature {
     my $name = shift;
     my @mods = @_;