[carton] 133/472: load mymeta when MYMETA.json is exist

[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 ccc7bbe782a32af68f263e687b12b9cb74110f3d
Author: NAKAGAWA Masaki <masaki.nakagawa at gmail.com>
Date:   Sun Jan 1 16:36:54 2012 +0900

    load mymeta when MYMETA.json is exist
---
 lib/Carton.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Carton.pm b/lib/Carton.pm
index d83101b..f714220 100644
--- a/lib/Carton.pm
+++ b/lib/Carton.pm
@@ -392,7 +392,7 @@ sub find_installs {
 
     return map {
         my $module = Carton::Util::load_json($_->[0]);
-        my $mymeta = CPAN::Meta->load_file($_->[1])->as_struct({ version => "2" });
+        my $mymeta = -f $_->[1] ? CPAN::Meta->load_file($_->[1])->as_struct({ version => "2" }) : {};
         ($module->{name} => { %$module, mymeta => $mymeta }) } @installs;
 }
 

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