[carton] 342/472: Support --cpanfile in check

[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 43664af291d56cbfa8520422a34b604eafe172dd
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date:   Tue Jul 23 02:19:51 2013 -0700

    Support --cpanfile in check
---
 lib/Carton/CLI.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lib/Carton/CLI.pm b/lib/Carton/CLI.pm
index 34e8c36..a2e2cc9 100644
--- a/lib/Carton/CLI.pm
+++ b/lib/Carton/CLI.pm
@@ -282,6 +282,15 @@ sub cmd_tree {
 sub cmd_check {
     my($self, @args) = @_;
 
+    my $cpanfile_path;
+    $self->parse_options(
+        \@args,
+        "cpanfile=s"  => \$cpanfile_path,
+    );
+
+    my $environment = Carton::Environment->build($cpanfile_path);
+    $self->environment($environment);
+
     my $lock = $self->lockfile->load;
 
     my $prereqs = Module::CPANfile->load($self->cpanfile)->prereqs;

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