From 33e3839c9283fee0439ccb68e427a8384d5af2f2 Mon Sep 17 00:00:00 2001
From: jnthn <jnthn@jnthn.net>
Date: Wed, 19 Aug 2009 16:34:51 +0200
Subject: [PATCH] ord should fail if passed a string of zero length, not die.

---
 src/setting/Any-str.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/setting/Any-str.pm b/src/setting/Any-str.pm
index a26bc22907f..4307e3f396f 100644
--- a/src/setting/Any-str.pm
+++ b/src/setting/Any-str.pm
@@ -32,6 +32,7 @@ class Any is also {
     }
 
     our Int multi method ord() is export {
+        fail('Can not take ord of empty string') if self.chars == 0;
         Q:PIR {
             $S0 = self
             $I0 = ord $S0