fix issue references in tests from 282d9dfeb4

[perl5.git] / t / op / aassign.t

diff --git a/t/op/aassign.t b/t/op/aassign.t
index aa1f2c7..41d7c82 100644 (file)
--- a/t/op/aassign.t
+++ b/t/op/aassign.t
@@ -595,7 +595,7 @@ SKIP: {
 }
 
 {
-    # GH #16685
+    # GH #17816
     # don't use the "1-arg on LHS can't be common" optimisation
     # when there are undef's there
     my $x = 1;
@@ -604,11 +604,11 @@ SKIP: {
 }
 
 {
-    # GH #17816
+    # GH #16685
     # honour trailing undef's in list context
     my $x = 1;
     my @a = (($x, undef, undef) = (1));
-    is(scalar @a, 3, "GH #17816");
+    is(scalar @a, 3, "GH #16685");
 }