[carton] 06/472: Check cpanm version

[Lucas Kanashiro]

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

kanashiro-guest pushed a commit to branch master
in repository carton.

commit 9d2b48d4315d2ed10babf4d729e162d60d97993d
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date:   Fri Jun 24 13:13:33 2011 -0700

    Check cpanm version
---
 lib/App/Carton.pm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/lib/App/Carton.pm b/lib/App/Carton.pm
index e6032da..906186e 100644
--- a/lib/App/Carton.pm
+++ b/lib/App/Carton.pm
@@ -149,7 +149,20 @@ sub cmd_show {
 }
 
 sub cmd_check {
-    # check carton.json and extlib consistency
+    my $self = shift;
+
+    $self->check_cpanm_version;
+    # check carton.json and extlib?
+}
+
+sub check_cpanm_version {
+    my $self = shift;
+
+    my $version = (`$self->{cpanm} --version` =~ /version (\S+)/)[0];
+    unless ($version && $version >= 1.5) {
+        $self->error("carton needs cpanm version >= 1.5. You have " . ($version || "(not installed)") . "\n");
+    }
+    $self->print("✔ You have cpanm $version\n", "SUCCESS");
 }
 
 sub cmd_update {

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