From 515351d18923c6f77267c42df178da07f12990b2 Mon Sep 17 00:00:00 2001
From: Ricardo Signes <rjbs@cpan.org>
Date: Sun, 14 Mar 2010 12:27:53 -0400
Subject: [PATCH] tool to produce corelist diffs

---
 Porting/corelist-diff | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 Porting/corelist-diff

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;
-- 
2.7.4