Skip to content

Commit d2b5eb5

Browse files
committed
fix typo in comp/parser.t
3 similar tests eval a sub with a list of variables, $r is repeated at the end of the list, but the errors that are being checked have nothing to do with the repeated variable. This causes a warning when warnings are enabled for the test.
1 parent 379af6a commit d2b5eb5

File tree

1 file changed

+6
-6
lines changed

1 file changed

+6
-6
lines changed

t/comp/parser.t

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -243,7 +243,7 @@ eval q[
243243
like($@, qr/Missing right curly/, 'nested sub syntax error' );
244244

245245
eval q[
246-
sub { my ($a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l,$m,$n,$o,$p,$q,$r,$s,$r);
246+
sub { my ($a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l,$m,$n,$o,$p,$q,$r,$s);
247247
sub { my $z
248248
];
249249
like($@, qr/Missing right curly/, 'nested sub syntax error 2' );
@@ -256,7 +256,7 @@ eval q[
256256
like($@, qr/Can't locate DieDieDie.pm/, 'croak cleanup' );
257257

258258
eval q[
259-
sub { my ($a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l,$m,$n,$o,$p,$q,$r,$s,$r);
259+
sub { my ($a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l,$m,$n,$o,$p,$q,$r,$s);
260260
use DieDieDie;
261261
];
262262

@@ -265,7 +265,7 @@ like($@, qr/Can't locate DieDieDie.pm/, 'croak cleanup 2' );
265265

266266
eval q[
267267
my @a;
268-
my ($a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l,$m,$n,$o,$p,$q,$r,$s,$r);
268+
my ($a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l,$m,$n,$o,$p,$q,$r,$s);
269269
@a =~ s/a/b/; # compile-time error
270270
use DieDieDie;
271271
];
@@ -639,10 +639,10 @@ check($this_file, 3, "bare line");
639639
# line 5
640640
check($this_file, 5, "bare line with leading space");
641641
642-
#line 7
642+
#line 7
643643
check($this_file, 7, "trailing space still valid");
644644
645-
# line 11
645+
# line 11
646646
check($this_file, 11, "leading and trailing");
647647
648648
# line 13
@@ -666,7 +666,7 @@ check(qr/^CLINK CLOINK BZZT$/, 31, "filename with spaces in quotes");
666666
#line 37 "THOOM THOOM"
667667
check(qr/^THOOM THOOM$/, 37, "filename with tabs in quotes");
668668
669-
#line 41 "GLINK PLINK GLUNK DINK"
669+
#line 41 "GLINK PLINK GLUNK DINK"
670670
check(qr/^GLINK PLINK GLUNK DINK$/, 41, "a space after the quotes");
671671
672672
#line 43 "BBFRPRAFPGHPP

0 commit comments

Comments
 (0)