Consider rv2cv in lvalue method call optional.

tobez · Apr 6, 2012 · ca1cfa3 · ca1cfa3
1 parent d0b9e40
commit ca1cfa3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/DBIx/Perlish/Parse.pm b/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;
 	}