Fix Whatever in .[*] and .{*} . Fixes RT #77072.

rakudo · Aug 7, 2010 · fca2d32 · fca2d32
1 parent e569d66
commit fca2d32
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/core/Any-list.pm b/src/core/Any-list.pm
@@ -288,6 +288,10 @@ augment class Any {
 
     our multi method postcircumfix:<[ ]>() { self.list }
 
+    our multi method postcircumfix:<[ ]>(Whatever $w) { 
+        self[0..(self.elems-1)]
+    }
+
     our multi method postcircumfix:<[ ]>(&block) { self[&block(self.elems)]; }
 
     our multi method postcircumfix:<[ ]>(@pos) {
@@ -322,6 +326,10 @@ augment class Any {
         self.values()
     }
 
+    our multi method postcircumfix:<{ }>(Whatever $w) {
+        self.{self.keys}
+    }
+
     our multi method postcircumfix:<{ }>(@keys) {
         my $result = pir::new__ps('ResizablePMCArray');
         for @keys {