diff options
author | Florian Ragwitz <rafl@debian.org> | 2010-09-11 16:22:45 +0200 |
---|---|---|
committer | Florian Ragwitz <rafl@debian.org> | 2010-09-11 16:24:07 +0200 |
commit | f7e3d3266d17243c5ff03ec4aa7b2e1a457623ae (patch) | |
tree | 46f85084385802e6c6e6c82bd6d516a79a9220f3 /toke.c | |
parent | df91fef15f30ce8d3584fdb220e980c21cb9cc87 (diff) | |
download | perl-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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) { |