From 7770611e745f20814ff34569608edd630b8ab079 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Quelin?= <jquelin@mandriva.org>
Date: Wed, 10 Feb 2010 16:34:36 +0000
Subject: using generated MYMETA.yml would be better. indeed, this creates
 what's been detected.

---
 find-requires.in   | 2 +-
 perl.req-from-meta | 7 ++-----
 2 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/find-requires.in b/find-requires.in
index 66e80e3..0ef6d51 100755
--- a/find-requires.in
+++ b/find-requires.in
@@ -178,7 +178,7 @@ fi
 
 #
 # --- Perl modules.
-perlmeta=$( echo $filelist | tr '[:blank:]' \\n | egrep '^META.(yml|json)' | head -1 )
+perlmeta=$( echo $filelist | tr '[:blank:]' \\n | egrep '/MYMETA.yml$' )
 if [ -n "$perlmeta" ]
 then
     [ -x @RPMVENDORDIR@/perl.req-from-meta ] && \
diff --git a/perl.req-from-meta b/perl.req-from-meta
index 5b612dd..243f54f 100755
--- a/perl.req-from-meta
+++ b/perl.req-from-meta
@@ -3,8 +3,7 @@
 use strict;
 use warnings;
 
-use JSON qw{ from_json };
-use YAML qw{ Load      };
+use YAML qw{ Load };
 
 # slurp the file
 my $path = shift;
@@ -13,9 +12,7 @@ my $data = do { local $/; <$fh> };
 close $fh;
 
 # parse meta - either yaml or json
-my $meta = $path =~ /\.yml$/
-    ? Load( $data )
-    : from_json( $data );
+my $meta = Load($data);
 
 # dump the requires with their version
 my $requires = $meta->{requires};
-- 
cgit v1.2.1