+# Most recent first
+my @todo_list = reverse sort keys %todo;
+
+# Here, @todo_list contains the integer version numbers that have support.
+# The first and final elements give the extremes of the supported versions.
+# (Use defaults that were reasonable at the time of this commit if the
+# directories are empty (which should only happen during regeneration of the
+# base and todo files).). Actually the final element is for blead (at the
+# time things were regenerated), which is 1 beyond the max version supported.
+my $INT_MAX_PERL = (@todo_list) ? $todo_list[0] - 1 : '5030000';
+my $MAX_PERL = format_version($INT_MAX_PERL);
+my $INT_MIN_PERL = (@todo_list) ? $todo_list[-1] : 5003007;
+my $MIN_PERL = format_version($INT_MIN_PERL);
+
+# check consistency between our list of everything provided, and our lists of
+# what got provided when
+for (@provided) {
+ if ( exists $raw_todo{$_}
+ && $raw_todo{$_} > $INT_MIN_PERL # INT_MIN_PERL contents are real
+ # symbols, not something to do
+ && exists $raw_base{$_})
+ {
+ if ($raw_base{$_} == $raw_todo{$_}) {