[carton] 39/472: use ~

[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 4ce9fdd3957ff3482bf5358f40f7fe99ad7c43f7
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date:   Sun Jun 26 04:45:29 2011 -0700

    use ~
---
 lib/Carton.pm      | 2 +-
 lib/Carton/Tree.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Carton.pm b/lib/Carton.pm
index 5fbf474..a35300b 100644
--- a/lib/Carton.pm
+++ b/lib/Carton.pm
@@ -68,7 +68,7 @@ sub dedupe_modules {
     my %seen;
     my @result;
     for my $spec (reverse @$modules) {
-        my($mod, $ver) = split /@/, $spec;
+        my($mod, $ver) = split /~/, $spec;
         next if $seen{$mod}++;
         push @result, $spec;
     }
diff --git a/lib/Carton/Tree.pm b/lib/Carton/Tree.pm
index 3047eec..56140ab 100644
--- a/lib/Carton/Tree.pm
+++ b/lib/Carton/Tree.pm
@@ -63,7 +63,7 @@ sub spec {
     my $self = shift;
 
     my $meta = $self->metadata;
-    $meta->{name} . ($meta->{version} ? '@' . $meta->{version} : '');
+    $meta->{name} . ($meta->{version} ? '~' . $meta->{version} : '');
 }
 
 sub children { @{$_[0]->[2]} }

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