From 01eb051d4af0b9b322b8a21762b5a3f11047024e 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:45:41 +0000
Subject: reverting commit r266103

---
 perl.req-from-meta | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'perl.req-from-meta')

diff --git a/perl.req-from-meta b/perl.req-from-meta
index 243f54f..5b612dd 100755
--- a/perl.req-from-meta
+++ b/perl.req-from-meta
@@ -3,7 +3,8 @@
 use strict;
 use warnings;
 
-use YAML qw{ Load };
+use JSON qw{ from_json };
+use YAML qw{ Load      };
 
 # slurp the file
 my $path = shift;
@@ -12,7 +13,9 @@ my $data = do { local $/; <$fh> };
 close $fh;
 
 # parse meta - either yaml or json
-my $meta = Load($data);
+my $meta = $path =~ /\.yml$/
+    ? Load( $data )
+    : from_json( $data );
 
 # dump the requires with their version
 my $requires = $meta->{requires};
-- 
cgit v1.2.1