This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add missing bug numbers
[perl5.git] / t / re / qr.t
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|;
 }
 
-# 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'}