summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorFlorian Ragwitz <rafl@debian.org>2010-09-11 16:22:45 +0200
committerFlorian Ragwitz <rafl@debian.org>2010-09-11 16:24:07 +0200
commitf7e3d3266d17243c5ff03ec4aa7b2e1a457623ae (patch)
tree46f85084385802e6c6e6c82bd6d516a79a9220f3 /toke.c
parentdf91fef15f30ce8d3584fdb220e980c21cb9cc87 (diff)
downloadperl-f7e3d3266d17243c5ff03ec4aa7b2e1a457623ae.tar.gz
Shorten external symbol name for VMS
VMS seems to have a 31 character limitation for external symbols. To be able to fit into that, rename 'coerce_qwlist_to_paren_list' to 'munge_qwlist_to_paren_list'.
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/toke.c b/toke.c
index b8694a6262..c4ff0c25ec 100644
--- a/toke.c
+++ b/toke.c
@@ -13984,9 +13984,9 @@ Perl_parse_fullstmt(pTHX_ U32 flags)
}
void
-Perl_coerce_qwlist_to_paren_list(pTHX_ OP *qwlist)
+Perl_munge_qwlist_to_paren_list(pTHX_ OP *qwlist)
{
- PERL_ARGS_ASSERT_COERCE_QWLIST_TO_PAREN_LIST;
+ PERL_ARGS_ASSERT_MUNGE_QWLIST_TO_PAREN_LIST;
deprecate("qw(...) as parentheses");
force_next(')');
if (qwlist->op_type == OP_STUB) {