[libmoosex-has-sugar-perl] 70/120: Add misc corelist data

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to annotated tag 0.05070422-source
in repository libmoosex-has-sugar-perl.

commit a412ccca363162e2be4b2af51ab34749588fde9d
Author: Kent Fredric <kentfredric at gmail.com>
Date:   Mon Nov 4 21:57:41 2013 +1300

    Add misc corelist data
---
 corelist-data/5.008009.zsv          | Bin 0 -> 7757 bytes
 corelist-data/5.010001.zsv          | Bin 0 -> 14349 bytes
 corelist-data/5.012005.zsv          | Bin 0 -> 14552 bytes
 corelist-data/5.014004.zsv          | Bin 0 -> 15745 bytes
 corelist-data/5.016003.zsv          | Bin 0 -> 16777 bytes
 corelist-data/5.017007.zsv          | Bin 0 -> 16831 bytes
 corelist-data/5.018000.zsv          | Bin 0 -> 16864 bytes
 corelist-data/5.019000.zsv          | Bin 0 -> 15065 bytes
 corelist-data/gen_modules.pl        |  21 +++++++++++++++++++++
 corelist-data/gen_modules_travis.sh |   3 +++
 corelist-data/gen_perl.pl           |  27 +++++++++++++++++++++++++++
 corelist-data/modules.zsv           | Bin 0 -> 15369 bytes
 12 files changed, 51 insertions(+)

diff --git a/corelist-data/5.008009.zsv b/corelist-data/5.008009.zsv
new file mode 100644
index 0000000..6911e5d
Binary files /dev/null and b/corelist-data/5.008009.zsv differ
diff --git a/corelist-data/5.010001.zsv b/corelist-data/5.010001.zsv
new file mode 100644
index 0000000..f950a22
Binary files /dev/null and b/corelist-data/5.010001.zsv differ
diff --git a/corelist-data/5.012005.zsv b/corelist-data/5.012005.zsv
new file mode 100644
index 0000000..dc3143b
Binary files /dev/null and b/corelist-data/5.012005.zsv differ
diff --git a/corelist-data/5.014004.zsv b/corelist-data/5.014004.zsv
new file mode 100644
index 0000000..93abcac
Binary files /dev/null and b/corelist-data/5.014004.zsv differ
diff --git a/corelist-data/5.016003.zsv b/corelist-data/5.016003.zsv
new file mode 100644
index 0000000..16222b6
Binary files /dev/null and b/corelist-data/5.016003.zsv differ
diff --git a/corelist-data/5.017007.zsv b/corelist-data/5.017007.zsv
new file mode 100644
index 0000000..2baf34b
Binary files /dev/null and b/corelist-data/5.017007.zsv differ
diff --git a/corelist-data/5.018000.zsv b/corelist-data/5.018000.zsv
new file mode 100644
index 0000000..06973c3
Binary files /dev/null and b/corelist-data/5.018000.zsv differ
diff --git a/corelist-data/5.019000.zsv b/corelist-data/5.019000.zsv
new file mode 100644
index 0000000..8447844
Binary files /dev/null and b/corelist-data/5.019000.zsv differ
diff --git a/corelist-data/gen_modules.pl b/corelist-data/gen_modules.pl
new file mode 100644
index 0000000..3b4b780
--- /dev/null
+++ b/corelist-data/gen_modules.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl 
+use strict;
+use warnings;
+use utf8;
+
+open my $fh, '>', './modules.zsv';
+
+use Module::CoreList;
+
+
+my $seen_modules = {};
+
+for my $version ( sort keys %Module::CoreList::version ) {
+    my ($hash) = $Module::CoreList::version{$version};
+    for my $module ( sort keys %{$hash} ) {
+        next if exists $seen_modules->{$module};
+        $fh->printf( "%s\0\n", $module );
+        $seen_modules->{$module}++;
+    }
+}
+
diff --git a/corelist-data/gen_modules_travis.sh b/corelist-data/gen_modules_travis.sh
new file mode 100644
index 0000000..16d8028
--- /dev/null
+++ b/corelist-data/gen_modules_travis.sh
@@ -0,0 +1,3 @@
+for i in 5.010001 5.012005 5.014004 5.016003 5.017007 5.018000 5.019000 5.008009; do
+  perl ./gen_perl.pl $i;
+done
diff --git a/corelist-data/gen_perl.pl b/corelist-data/gen_perl.pl
new file mode 100644
index 0000000..4cd9c1c
--- /dev/null
+++ b/corelist-data/gen_perl.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl 
+use strict;
+use warnings;
+use utf8;
+
+use Module::CoreList;
+
+if ( not $ARGV[0] ) {
+    die "GIVE US A PERL VERSION";
+}
+
+my $version = $ARGV[0];
+
+use Module::CoreList;
+
+if ( not exists $Module::CoreList::version{$version} ) {
+    die "Version $version not in corelist";
+}
+my ($hash) = $Module::CoreList::version{$version};
+
+open my $fh, '>', './' . $version . '.zsv';
+
+for my $module ( sort keys %{$hash} ) {
+    $fh->printf( "%s\0%s\0\n", $module, $hash->{$module} );
+}
+$fh->close;
+
diff --git a/corelist-data/modules.zsv b/corelist-data/modules.zsv
new file mode 100644
index 0000000..311a703
Binary files /dev/null and b/corelist-data/modules.zsv differ

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