This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix issue references in tests from 282d9dfeb4
authorHugo van der Sanden <hv@crypt.org>
Tue, 5 Jan 2021 15:33:54 +0000 (15:33 +0000)
committerHugo van der Sanden <hv@crypt.org>
Tue, 5 Jan 2021 15:33:54 +0000 (15:33 +0000)
Some cut-n-paste errors.

t/op/aassign.t

index aa1f2c7..41d7c82 100644 (file)
@@ -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");
 }