tool to produce corelist diffs

1 files changed, 26 insertions, 0 deletions

diff --git a/Porting/corelist-diff b/Porting/corelist-diff
new file mode 100644
index 0000000000..72bb1b0d2c
--- /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;