From 05219fcc7bb0959289a883db89f3e26e9adb6f45 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Quelin?= Date: Wed, 10 Feb 2010 10:52:14 +0000 Subject: new script: perl.req-from-meta --- perl.req-from-meta | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100755 perl.req-from-meta (limited to 'perl.req-from-meta') diff --git a/perl.req-from-meta b/perl.req-from-meta new file mode 100755 index 0000000..fdc149d --- /dev/null +++ b/perl.req-from-meta @@ -0,0 +1,33 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +use JSON qw{ from_json }; +use YAML qw{ Load }; + +# slurp the file +my $path = shift; +open my $fh, '<', $path or die "can't open $path: $!"; +my $data = do { local $/; <$fh> }; +close $fh; + +# parse meta - either yaml or json +my $meta = $path =~ /\.yml$/ + ? Load( $data ) + : from_json( $data ); + +# dump the requires with their version +my $requires = $meta->{requires}; +foreach my $module ( sort keys %$requires ) { + next if $module eq 'perl'; # minimum perl version + my $version = $requires->{$module}; + if ( $version == 0 ) { + print "perl($module)\n"; + } else { + my $v = qx{ rpm --eval '%perl_convert_version $version' }; + print "perl($module) >= $v"; + } +} + +exit; -- cgit v1.2.1