Skip to content

Commit ae4d500

Browse files
committed
Restore double-quotes around goto in error message
Per Tony Cook request.
1 parent 9729f84 commit ae4d500

File tree

4 files changed

+6
-6
lines changed

4 files changed

+6
-6
lines changed

pod/perldiag.pod

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -7845,7 +7845,7 @@ For speed and efficiency reasons, Perl internally does not do full
78457845
reference-counting of iterated items, hence deleting such an item in the
78467846
middle of an iteration causes Perl to see a freed value.
78477847

7848-
=item Use of goto to jump into a construct is no longer permitted
7848+
=item Use of "goto" to jump into a construct is no longer permitted
78497849

78507850
(F) More TO COME.
78517851

pp_ctl.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3652,7 +3652,7 @@ PP(pp_goto)
36523652
? 2
36533653
: 1;
36543654
if (enterops[i])
3655-
croak("Use of goto to jump into a construct is no longer permitted");
3655+
croak("Use of \"goto\" to jump into a construct is no longer permitted");
36563656
}
36573657

36583658
/* pop unwanted frames */

t/lib/croak/pp_ctl

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -3,18 +3,18 @@ __END__
33
goto f;
44
foreach(1){f:}
55
EXPECT
6-
Use of goto to jump into a construct is no longer permitted at - line 1.
6+
Use of "goto" to jump into a construct is no longer permitted at - line 1.
77
########
88
# NAME goto into given
99
goto f;
1010
CORE::given(1){f:}
1111
EXPECT
12-
Use of goto to jump into a construct is no longer permitted at - line 1.
12+
Use of "goto" to jump into a construct is no longer permitted at - line 1.
1313
########
1414
# NAME goto from given topic expression
1515
CORE::given(goto f){f:}
1616
EXPECT
17-
Use of goto to jump into a construct is no longer permitted at - line 1.
17+
Use of "goto" to jump into a construct is no longer permitted at - line 1.
1818
########
1919
# NAME goto into expression
2020
no warnings 'deprecated';

t/uni/labels.t

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -86,7 +86,7 @@ is $d, 0, "Latin-1 labels are reachable";
8686
}
8787
};
8888
like($@,
89-
qr/Use of goto to jump into a construct is no longer permitted/,
89+
qr/Use of "goto" to jump into a construct is no longer permitted/,
9090
"Got expected error message");
9191
}
9292

0 commit comments

Comments
 (0)