Attachment 98636 Details for Bug 19735 – Bug 19735: Script to generate cpanfile (DO NOT PUSH)

[patch] Bug 19735: Script to generate cpanfile (DO NOT PUSH)

Bug-19735-Script-to-generate-cpanfile-DO-NOT-PUSH.patch (text/plain), 1.23 KB, created by Martin Renvoize (ashimema) on 2020-02-10 08:48:17 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Martin Renvoize (ashimema)

Created: 2020-02-10 08:48:17 UTC

Size: 1.23 KB

patch

obsolete

>From 7f6f73870f2fe1266462b5d1e52147924df4248a Mon Sep 17 00:00:00 2001
>From: Julian Maurice <julian.maurice@biblibre.com>
>Date: Thu, 26 Oct 2017 16:24:27 +0000
>Subject: [PATCH] Bug 19735: Script to generate cpanfile (DO NOT PUSH)
>
>For testing purposes only
>
>Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
>---
> misc/devel/generate_cpanfile.pl | 21 +++++++++++++++++++++
> 1 file changed, 21 insertions(+)
> create mode 100755 misc/devel/generate_cpanfile.pl
>
>diff --git a/misc/devel/generate_cpanfile.pl b/misc/devel/generate_cpanfile.pl
>new file mode 100755
>index 0000000000..2a90334b30
>--- /dev/null
>+++ b/misc/devel/generate_cpanfile.pl
>@@ -0,0 +1,21 @@
>+#!/usr/bin/env perl
>+
>+use Modern::Perl;
>+
>+use Module::CPANfile;
>+
>+use C4::Installer::PerlDependencies;
>+
>+my $deps = $C4::Installer::PerlDependencies::PERL_DEPS;
>+my $prereqs = {};
>+while (my ($module, $req) = each %$deps) {
>+    my $type = $req->{required} ? 'requires' : 'recommends';
>+
>+    $prereqs->{runtime}->{$type}->{$module} = $req->{min_ver};
>+}
>+
>+$prereqs->{runtime}->{requires}->{'Module::CPANfile'} = '1.1000';
>+$prereqs->{runtime}->{requires}->{'CPAN::Meta'} = '2.150006';
>+
>+my $cpanfile = Module::CPANfile->from_prereqs($prereqs);
>+print $cpanfile->to_string;
>-- 
>2.20.1

Actions: View | Diff | Splinter Review

Attachments on bug 19735: 69465 | 69466 | 73837 | 73838 | 81612 | 97484 | 97485 | 98568 | 98569 | 98570 | 98576 | 98577 | 98636 | 98637 | 98638 | 98639 | 98640 | 98743 | 98744 | 98745 | 98746 | 98747 | 98748