diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-09-20 15:44:55 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-09-20 15:44:55 -0700 |
| commit | 92c404cdb33b2c3bee04da4b4fe626140f9ca4f9 (patch) | |
| tree | f6e0ffdcb4de9e110aedbcd7cc38f0ac0588a652 /t | |
| parent | 68b590d93559da1f7a0d3956202180d507013365 (diff) | |
| download | perl-92c404cdb33b2c3bee04da4b4fe626140f9ca4f9.tar.gz | |
Add missing bug numbers
Diffstat (limited to 't')
| -rw-r--r-- | t/op/sort.t | 2 | ||||
| -rw-r--r-- | t/re/qr.t | 2 | ||||
| -rw-r--r-- | t/re/subst.t | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/t/op/sort.t b/t/op/sort.t index 59b83214a9..2119ead99a 100644 --- a/t/op/sort.t +++ b/t/op/sort.t @@ -906,5 +906,5 @@ fresh_perl_is ', 'ok', {}, - '[perl #_____] cx_stack reallocation during sort' + '[perl #77930] cx_stack reallocation during sort' ; @@ -72,7 +72,7 @@ for($'){ is $output, "5\n1: 5\n2: 5\n", q|/$qr/ with $'_ aliased to a match var|; } -# Make sure /$qr/ calls get-magic on its LHS (bug ~~~~~). +# Make sure /$qr/ calls get-magic on its LHS (bug 71470). { my $scratch; sub qrBug::TIESCALAR{bless[], 'qrBug'} diff --git a/t/re/subst.t b/t/re/subst.t index de6284a8ea..91c757a8a5 100644 --- a/t/re/subst.t +++ b/t/re/subst.t @@ -677,7 +677,7 @@ is($name, "cis", q[#22351 bug with 'e' substitution modifier]); fresh_perl_is( '$_=q(foo);s/(.)\G//g;print' => 'foo', '[perl #69056] positive GPOS regex segfault' ); fresh_perl_is( '$_="abcef"; s/bc|(.)\G(.)/$1 ? "[$1-$2]" : "XX"/ge; print' => 'aXX[c-e][e-f]f', 'positive GPOS regex substitution failure' ); -# [perl #~~~~~] $var =~ s/$qr//e calling get-magic on $_ as well as $var +# [perl #71470] $var =~ s/$qr//e calling get-magic on $_ as well as $var { local *_; my $scratch; |