[libmoosex-has-sugar-perl] 64/120: With installing developer deps, use ~>= instead of ~ if the dependency is a pure number

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to annotated tag 0.05070422-source
in repository libmoosex-has-sugar-perl.

commit a0720f7a0b836381b92b5d0f58ccba9490023c81
Author: Kent Fredric <kentfredric at gmail.com>
Date:   Fri Nov 1 01:00:57 2013 +1300

    With installing developer deps, use ~>= instead of ~ if the dependency is a pure number
---
 install_deps.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/install_deps.pl b/install_deps.pl
index 743b228..58e2b22 100644
--- a/install_deps.pl
+++ b/install_deps.pl
@@ -49,8 +49,17 @@ else {
   if ( env_true('AUTHOR_TESTING') or env_true('RELEASE_TESTING') ) {
     my $prereqs = parse_meta_json()->effective_prereqs;
     my $reqs = $prereqs->requirements_for( 'develop', 'requires' );
+    my @wanted;
 
-    cpanm( @params, map { $_ . '~' . $reqs->requirements_for_module($_) } $reqs->required_modules );
+    for my $want ( $reqs->required_modules ) {
+      my $module_requirement = $reqs->requirements_for_module($want);
+      if ( $module_requirement =~ /^\d/ ) {
+        push @wanted, $want . '~>=' . $module_requirement;
+        next;
+      }
+      push @wanted, $want . '~' . $module_requirement;
+    }
+    cpanm( @params, @wanted );
 
   }
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoosex-has-sugar-perl.git