This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add missing bug numbers
authorFather Chrysostomos <sprout@cpan.org>
Mon, 20 Sep 2010 22:44:55 +0000 (15:44 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 20 Sep 2010 22:44:55 +0000 (15:44 -0700)
t/op/sort.t
t/re/qr.t
t/re/subst.t

index 59b8321..2119ead 100644 (file)
@@ -906,5 +906,5 @@ fresh_perl_is
  ',
  'ok',
   {},
  ',
  'ok',
   {},
- '[perl #_____] cx_stack reallocation during sort'
+ '[perl #77930] cx_stack reallocation during sort'
 ;
 ;
index c7461d4..7a7ca6a 100644 (file)
--- a/t/re/qr.t
+++ b/t/re/qr.t
@@ -72,7 +72,7 @@ for($'){
  is $output, "5\n1: 5\n2: 5\n", q|/$qr/ with $'_ aliased to a match var|;
 }
 
  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'}
 {
  my $scratch;
  sub qrBug::TIESCALAR{bless[], 'qrBug'}
index de6284a..91c757a 100644 (file)
@@ -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' );
 
 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;
 {
  local *_;
  my $scratch;