Fix .<>, .[], and .{} in smart matching (RT #61136)

rakudo · Mar 1, 2009 · 7bd5a95 · 7bd5a95
1 parent 1e22a68
commit 7bd5a95
Showing 1 changed file with 7 additions and 11 deletions.
diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -3048,20 +3048,16 @@ sub transform_to_multi($past) {
 # by infix:~~ and the when statement.
 sub process_smartmatch($lhs, $rhs, $rhs_pt) {
     if $rhs_pt<noun><dotty> {
-        # Method truth - just call RHS.
+        # method truth
         $rhs<invocant_holder>[0] := $lhs;
-        return PAST::Op.new(
-            :pasttype('call'),
-            :name('prefix:?'),
-            $rhs
-        );
+        if $rhs_pt<noun><dotty><dottyop><postcircumfix> {
+            # array/hash slice truth
+            $rhs := PAST::Op.new( :pasttype('call'), :name('all'), $rhs);
+        }
+        return PAST::Op.new( :pasttype('call'), :name('prefix:?'), $rhs);
     }
     else {
-        return PAST::Op.new(
-            :pasttype('call'),
-            :name('infix:~~'),
-            $lhs, $rhs
-        );
+        return PAST::Op.new( :pasttype('call'), :name('infix:~~'), $lhs, $rhs);
     }
 }