[carton] 129/472: Return version of the module in the spec when installing from lock

[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 849fbaf99754970b93e8b875adfdabcca714f68c
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date:   Tue Nov 8 14:32:19 2011 -0800

    Return version of the module in the spec when installing from lock
---
 lib/Carton/Tree.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Carton/Tree.pm b/lib/Carton/Tree.pm
index 7454b08..fd9b6bb 100644
--- a/lib/Carton/Tree.pm
+++ b/lib/Carton/Tree.pm
@@ -65,7 +65,8 @@ sub spec {
     my $self = shift;
 
     my $meta = $self->metadata;
-    $meta->{name} . ($meta->{version} ? '~' . $meta->{version} : '');
+    my $version = $meta->{provides}{$meta->{name}}{version} || $meta->{version};
+    $meta->{name} . ($version ? '~' . $version : '');
 }
 
 sub children { @{$_[0]->[2]} }

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