In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/4fe487375733a521d44d835d6c9894bd30c6e26a?hp=ee95e30c64b700db346148e4c9bcd140e30ec272>
- Log ----------------------------------------------------------------- commit 4fe487375733a521d44d835d6c9894bd30c6e26a Author: Father Chrysostomos <[email protected]> Date: Fri Jul 29 08:56:37 2016 -0700 New bug numbers in *.[ch] perl -pi -e 'BEGIN { %map = split " ", join "", `cat pb2rt.txt` } s/(?<!\d)\d{8}\.\d{3}(?!\d)/$& (#$map{$&})/g' *.[ch] M op.c M sv.h commit 126fe723711f584a4cbdbdbfcc7792d26d961450 Author: Father Chrysostomos <[email protected]> Date: Fri Jul 29 08:55:37 2016 -0700 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' M dist/Storable/t/dclone.t M dist/Storable/t/recurse.t M dist/base/Changes M lib/Tie/Array/splice.t M lib/charnames.t M lib/locale.t M lib/overload.t M lib/utf8.t ----------------------------------------------------------------------- Summary of changes: dist/Storable/t/dclone.t | 2 +- dist/Storable/t/recurse.t | 2 +- dist/base/Changes | 2 +- lib/Tie/Array/splice.t | 2 +- lib/charnames.t | 2 +- lib/locale.t | 2 +- lib/overload.t | 2 +- lib/utf8.t | 4 ++-- op.c | 4 ++-- sv.h | 2 +- 10 files changed, 12 insertions(+), 12 deletions(-) diff --git a/dist/Storable/t/dclone.t b/dist/Storable/t/dclone.t index 1e852a3..af3d7f6 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 930a224..399101c 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 44d579f..0775529 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 d7ea6cc..9c86c41 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 9a5400c..14bdebd 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 075b0e6..727d7f9 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 ef4ce4e..d778776 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 d90361d..c9dbb6e 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}"; diff --git a/op.c b/op.c index 18692e5..a95bc44 100644 --- a/op.c +++ b/op.c @@ -3254,7 +3254,7 @@ Perl_op_lvalue_flags(pTHX_ OP *o, I32 type, U32 flags) goto nomod; } - /* [20011101.069] File test operators interpret OPf_REF to mean that + /* [20011101.069 (#7861)] File test operators interpret OPf_REF to mean that their argument is a filehandle; thus \stat(".") should not set it. AMS 20011102 */ if (type == OP_REFGEN && @@ -13668,7 +13668,7 @@ Perl_rpeep(pTHX_ OP *o) /* XXX: We avoid setting op_seq here to prevent later calls to rpeep() from mistakenly concluding that optimisation has already occurred. This doesn't fix the real problem, - though (See 20010220.007). AMS 20010719 */ + though (See 20010220.007 (#5874)). AMS 20010719 */ /* op_seq functionality is now replaced by op_opt */ o->op_opt = 0; /* FALLTHROUGH */ diff --git a/sv.h b/sv.h index bfda6bf..db42a66 100644 --- a/sv.h +++ b/sv.h @@ -617,7 +617,7 @@ struct xpvio { * Perl_filter_add() tries to do with the dirp), hence the * following union trick (as suggested by Gurusamy Sarathy). * For further information see Geir Johansen's problem report - * titled [ID 20000612.002] Perl problem on Cray system + * titled [ID 20000612.002 (#3366)] Perl problem on Cray system * The any pointer (known as IoANY()) will also be a good place * to hang any IO disciplines to. */ -- Perl5 Master Repository
