diff options
| -rw-r--r-- | t/op/postfixderef.t | 14 | ||||
| -rw-r--r-- | toke.c | 3 |
2 files changed, 15 insertions, 2 deletions
diff --git a/t/op/postfixderef.t b/t/op/postfixderef.t index 77988bfd3c..c3fa968d49 100644 --- a/t/op/postfixderef.t +++ b/t/op/postfixderef.t @@ -16,7 +16,7 @@ BEGIN { use strict qw(refs subs); -plan(115); +plan(116); { no strict 'refs'; @@ -352,4 +352,16 @@ is "$_->@{foo}", "foo->7 8 9", '->@{ does not interpolate without feature'; is "@{[foo->@*]}", "7 8 9", '->@* inside "@{...}"'; is "@{[foo->@[0,1]]}", "7 8", '->@[ inside "@{...}"'; is "@{[foo->@{foo}]}", "oof", '->@{ inside "@{...}"'; + + # "foo $_->$*" should be equivalent to "foo $$_", which uses concat + # overloading + package o { + use overload fallback=>1, + '""' => sub { $_[0][0] }, + '.' => sub { bless [ "$_[$_[2]]"." plus "."$_[!$_[2]]" ] }; + } + my $o = bless ["overload"], o::; + my $ref = \$o; + is "foo$ref->$*bar", "foo plus overload plus bar", + '"foo $s->$* bar" does concat overloading'; } @@ -1944,7 +1944,8 @@ S_postderef(pTHX_ int const funny, char const next) if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets) { assert('@' == funny || '$' == funny || DOLSHARP == funny); PL_lex_state = LEX_INTERPEND; - force_next(POSTJOIN); + if ('@' == funny) + force_next(POSTJOIN); } force_next(next); PL_bufptr+=2; |