From: Ricardo Signes <rjbs@cpan.org>
Date: Sun, 14 Mar 2010 16:27:53 +0000 (-0400)
Subject: tool to produce corelist diffs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=515351d18923c6f77267c42df178da07f12990b2;p=p5sagit%2Fp5-mst-13.2.git

tool to produce corelist diffs
---

diff --git a/Porting/corelist-diff b/Porting/corelist-diff
new file mode 100644
index 0000000..72bb1b0
--- /dev/null
+++ b/Porting/corelist-diff
@@ -0,0 +1,26 @@
+use strict;
+use 5.010;
+use lib 'dist/Module-CoreList/lib';
+
+use List::MoreUtils qw(uniq);
+use Module::CoreList;
+use Text::Table;
+
+my $old_ver = 5.010000;
+my $new_ver = 5.011005;
+
+my $old = $Module::CoreList::version{ $old_ver };
+my $new = $Module::CoreList::version{ $new_ver };
+
+my $table = Text::Table->new('library', \' | ', $old_ver, \' | ', $new_ver);
+
+for my $lib (uniq sort (keys %$old, keys %$new)) {
+  my $old = exists $old->{ $lib } ? $old->{ $lib } // '(undef)' : '(absent)';
+  my $new = exists $new->{ $lib } ? $new->{ $lib } // '(undef)' : '(absent)';
+  
+  next if $old eq $new;
+
+  $table->add($lib, $old, $new);
+}
+
+print $table;