add degenerate infix:<~>

rakudo · Jul 5, 2011 · 2e59702 · 2e59702
1 parent 4353c16
commit 2e59702
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/core/metaops.pm b/src/core/metaops.pm
@@ -106,3 +106,5 @@ sub METAOP_REDUCE_XOR(\$op, :$triangle) {
     NYI "xor reduce NYI";
 }
 
+# degenerate case of operators, to be used by reduce() for the 0-ary case
+multi sub infix:<~>($x = '')  { ~$x }