From 4293059cb59c4ccf5cfea8d585a2b481e43681dc Mon Sep 17 00:00:00 2001
From: Tatsuhiko Miyagawa <miyagawa@bulknews.net>
Date: Sat, 10 Aug 2013 21:47:14 -0700
Subject: Only select MYMETA actually matching the dist

---
 lib/Carton/Packer.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Carton/Packer.pm b/lib/Carton/Packer.pm
index e261be2..6c8b351 100644
--- a/lib/Carton/Packer.pm
+++ b/lib/Carton/Packer.pm
@@ -80,7 +80,8 @@ sub installed_meta {
     my @meta;
     my $finder = sub {
         if (m!\b$dist-.*[\\/]MYMETA.json!) {
-            push @meta, CPAN::Meta->load_file($_);
+            my $meta = CPAN::Meta->load_file($_);
+            push @meta, $meta if $meta->name eq $dist;
         }
     };
 
-- 
cgit v1.2.1