[carton] 110/472: Fix --path handling (Ugh)

[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 d69b0f16a9ef7e078c2f9577daee4f1d1c6261c5
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date:   Thu Oct 13 12:57:15 2011 +0900

    Fix --path handling (Ugh)
---
 lib/Carton/CLI.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Carton/CLI.pm b/lib/Carton/CLI.pm
index 9aa7b02..2c48cb1 100644
--- a/lib/Carton/CLI.pm
+++ b/lib/Carton/CLI.pm
@@ -161,7 +161,7 @@ sub cmd_version {
 sub cmd_install {
     my($self, @args) = @_;
 
-    $self->parse_options(\@args, "p|path=s", sub { $self->config->set(path => $_[1]) }, "deployment!" => \$self->{deployment});
+    $self->parse_options(\@args, "p|path=s", sub { $self->config->data->{'environment.path'} = $_[1] }, "deployment!" => \$self->{deployment});
 
     my $lock = $self->find_lock;
 
@@ -193,7 +193,7 @@ sub cmd_install {
 sub cmd_uninstall {
     my($self, @args) = @_;
 
-    $self->parse_options(\@args, "p|path=s", sub { $self->config->set(path => $_[1]) });
+    $self->parse_options(\@args, "p|path=s", sub { $self->config->data->{'environment.path'} = $_[1] });
 
     my $lock = $self->find_lock
         or $self->error("Can't find carton.lock: Run `carton install`");
@@ -354,7 +354,7 @@ sub cmd_check {
     my $file = $self->has_build_file
         or $self->error("Can't find a build file: nothing to check.\n");
 
-    $self->parse_options(\@args, "p|path=s", sub { $self->config->set(path => $_[1]) });
+    $self->parse_options(\@args, "p|path=s", sub { $self->config->data->{'environment.path'} = $_[1] });
 
     my $lock = $self->carton->build_lock;
     my @deps = $self->carton->list_dependencies;

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