while (<PATCH_LEVEL>) {
last if /^\s*}/;
next if /^\s*#/; # preprocessor stuff
+ next if /PERL_GIT_UNPUSHED_COMMITS/; # XXX expand instead
+ next if /PERL_GIT_UNCOMMITTED_CHANGES/; # XXX expand instead
chomp;
s/^\s+,?\s*"?//;
s/"?\s*,?$//;
EOF
$entry = '';
+ } elsif (my $bug_tracker = $Module::CoreList::bug_tracker{$entry}) {
+ paraprint <<"EOF";
+$entry included with core Perl is copied directly from the CPAN distribution.
+Please report bugs in $entry directly to its maintainers using $bug_tracker
+EOF
+ $entry = '';
} elsif ($entry) {
$category ||= 'library';
$report_about_module = $entry;