Skip to content
Browse files

Consider rv2cv in lvalue method call optional.

  • Loading branch information...
1 parent d0b9e40 commit ca1cfa313e9087eaee9df8ee8d54662ef100d05b @tobez committed
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/DBIx/Perlish/Parse.pm
View
2 lib/DBIx/Perlish/Parse.pm
@@ -314,7 +314,7 @@ sub get_tab_field
$op = $op->sibling;
my $field = want_method($S, $op);
$op = $op->sibling;
- if ($p{lvalue}) {
+ if ($p{lvalue} && is_unop($op, "rv2cv")) {
want_unop($S, $op, "rv2cv");
$op = $op->sibling;
}

0 comments on commit ca1cfa3

Please sign in to comment.
Something went wrong with that request. Please try again.