From 3804f4f58c60552cc3daa17e63387fd408474337 Mon Sep 17 00:00:00 2001
From: Nick Wellnhofer <wellnhofer@aevum.de>
Date: Sun, 3 Oct 2010 03:28:29 +0200
Subject: [PATCH] Replace string_ord with Parrot_str_indexed

---
 src/ops/perl6.ops | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ops/perl6.ops b/src/ops/perl6.ops
index 7c6f8017943..3b9cde4f080 100644
--- a/src/ops/perl6.ops
+++ b/src/ops/perl6.ops
@@ -233,7 +233,7 @@ inline op x_is_uprop(out INT, in STR, in STR, in INT) :base_core {
         goto NEXT();
     }
 
-    ord = string_ord(interp, $3, $4);
+    ord = Parrot_str_indexed(interp, $3, $4);
     cstr = Parrot_str_to_cstring(interp, $2);
 
     /* try block tests */