Allow ord to handle a string with more than one character (in list co…

…ntext, anyway).
rakudo · Dec 12, 2009 · 6f25191 · 6f25191
1 parent 6ee78ed
commit 6f25191
Showing 1 changed file with 10 additions and 3 deletions.
diff --git a/src/core/Any-str.pm b/src/core/Any-str.pm
@@ -131,9 +131,16 @@ augment class Any {
         Regex::Cursor.parse(self, :rule($pat), :c($c));
     }
 
-    our Int multi method ord() {
-        fail('Can not take ord of empty string') if self.chars == 0;
-        pir::box__PI(pir::ord__IS(self))
+    our multi method ord() {
+        given self.chars {
+            when 0  { fail('Can not take ord of empty string'); }
+            when 1  { pir::box__PI(pir::ord__IS(self)); }
+            default {
+                        gather for self.comb {
+                            take pir::box__PI(pir::ord__IS($_))
+                        }
+                    }
+        }
     }
 
     # TODO: Return type should be a Char once that is supported.