New bug numbers in lib/ and dist/, too

This is my quick-and-dirty script:

find dist -print0 | xargs -0 perl -pi -e 'BEGIN { %map = split " ", join "", `cat pb2rt.txt` } s/(?<!\d)\d{8}\.\d{3}(?!\d)/$& (#$map{$&})/g'

8 files changed, 9 insertions, 9 deletions

diff --git a/dist/Storable/t/dclone.t b/dist/Storable/t/dclone.t
index 1e852a3ca5..af3d7f6abf 100644
--- a/dist/Storable/t/dclone.t
+++ b/dist/Storable/t/dclone.t
@@ -68,7 +68,7 @@ is($$cloned{''}[0], \$$cloned{a});
 $$cloned{a} = "blah";
 is($$cloned{''}[0], \$$cloned{a});
 
-# [ID 20020221.007] SEGV in Storable with empty string scalar object
+# [ID 20020221.007 (#8624)] SEGV in Storable with empty string scalar object
 package TestString;
 sub new {
     my ($type, $string) = @_;
diff --git a/dist/Storable/t/recurse.t b/dist/Storable/t/recurse.t
index 930a2242eb..399101cc4a 100644
--- a/dist/Storable/t/recurse.t
+++ b/dist/Storable/t/recurse.t
@@ -272,7 +272,7 @@ sub set_c2 { $_[0]->{c2} = $_[1] }
 
 #
 # Is the reference count of the extra references returned from a
-# STORABLE_freeze hook correct? [ID 20020601.005]
+# STORABLE_freeze hook correct? [ID 20020601.005 (#9436)]
 #
 package Foo2;
 
diff --git a/dist/base/Changes b/dist/base/Changes
index 44d579f768..07755298ac 100644
--- a/dist/base/Changes
+++ b/dist/base/Changes
@@ -70,7 +70,7 @@
       pseudohashes
     * Fixing inheritance from classes which have only private fields
     * Fixing inheritance when an intermediate class has no fields.
-      [perlbug 20020326.004]
+      [perlbug 20020326.004 (#8884)]
     - Removing uses of 'our' from tests for backwards compat.
 
 2.02 Wed Sep  3 20:40:13 PDT 2003
diff --git a/lib/Tie/Array/splice.t b/lib/Tie/Array/splice.t
index d7ea6cc1dc..9c86c417b0 100644
--- a/lib/Tie/Array/splice.t
+++ b/lib/Tie/Array/splice.t
@@ -6,7 +6,7 @@ BEGIN {
     push @INC, '../lib';
 }
 
-# bug id 20001020.002
+# bug id 20001020.002 (#4480)
 # -dlc 20001021
 
 use Tie::Array;
diff --git a/lib/charnames.t b/lib/charnames.t
index 9a5400c87a..14bdebddb0 100644
--- a/lib/charnames.t
+++ b/lib/charnames.t
@@ -188,7 +188,7 @@ sub test_vianame ($$$) {
 }
 
 {
-    # 20001114.001
+    # 20001114.001 (#4690)
 
     no utf8; # naked Latin-1
 
diff --git a/lib/locale.t b/lib/locale.t
index 075b0e6ea4..727d7f9c26 100644
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -2148,7 +2148,7 @@ foreach my $Locale (@Locale) {
     debug "$first_f_test..$locales_test_number: \$f = $f, \$g = $g, back to locale = $Locale\n";
 
     # Does taking lc separately differ from taking
-    # the lc "in-line"?  (This was the bug 19990704.002, change #3568.)
+    # the lc "in-line"?  (This was the bug 19990704.002 (#965), change #3568.)
     # The bug was in the caching of the 'o'-magic.
     if (! $is_utf8_locale) {
 	use locale;
diff --git a/lib/overload.t b/lib/overload.t
index ef4ce4e593..d778776ef7 100644
--- a/lib/overload.t
+++ b/lib/overload.t
@@ -1021,7 +1021,7 @@ unless ($aaa) {
   main::ok($x+0 =~ qr/Recurse=ARRAY/);
 }
 
-# BugID 20010422.003
+# BugID 20010422.003 (#6872)
 package Foo;
 
 use overload
diff --git a/lib/utf8.t b/lib/utf8.t
index d90361dbe0..c9dbb6ee59 100644
--- a/lib/utf8.t
+++ b/lib/utf8.t
@@ -40,7 +40,7 @@ no utf8; # Ironic, no?
 #
 
 {
-    # bug id 20001009.001
+    # bug id 20001009.001 (#4409)
 
     my ($a, $b);
 
@@ -56,7 +56,7 @@ no utf8; # Ironic, no?
 
 
 {
-    # bug id 20000730.004
+    # bug id 20000730.004 (#3599)
 
     my $smiley = "\x{263a}";