diff options
author | Tatsuhiko Miyagawa <miyagawa@bulknews.net> | 2013-08-10 21:47:14 -0700 |
---|---|---|
committer | Tatsuhiko Miyagawa <miyagawa@bulknews.net> | 2013-08-10 21:47:14 -0700 |
commit | 4293059cb59c4ccf5cfea8d585a2b481e43681dc (patch) | |
tree | 3296d343545eb6f18c8818cff4bd5ecd52107939 | |
parent | 520305ad21e6a48753a9748a594296136ce7a99f (diff) | |
download | carton-4293059cb59c4ccf5cfea8d585a2b481e43681dc.tar.gz |
Only select MYMETA actually matching the dist
-rw-r--r-- | lib/Carton/Packer.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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; } }; |