X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=utils%2Fperlbug.PL;h=9df77fe6825ab0fbb141092fb9769c3ac7ea5dd7;hb=114c60ecb1f775ef1deb4fdc8fb8e3a6f343d13d;hp=97cf0c85d762e63425386ca4c5e749861453814d;hpb=985dc10ab33c95586dcbba902505c7460cbcf5e3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 97cf0c8..9df77fe 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -41,6 +41,8 @@ my @patches;
 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*,?$//;
@@ -604,6 +606,12 @@ for $entry on http://rt.cpan.org, and report your issue there.
 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;