# New Ticket Created by Brian Gernhardt
# Please include the string: [perl #64716]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=64716 >
Was just updating my local copy of rakudo when I noticed a small error.
In the new unicode properties code, it checks to see if the first two
letters of a string match "Bidi". I assume this was just a copy/paste
error from the similar bit of code above.
Patch follows.
>From f8c0c216e6cecbd0e77ff02a95c7e22700dd330c Mon Sep 17 00:00:00 2001
From: Brian Gernhardt <be...@silverinsanity.com>
Date: Tue, 14 Apr 2009 11:14:14 -0400
Subject: [PATCH] "Bidi" is 4 characters, not 2
---
src/ops/perl6.ops | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/src/ops/perl6.ops b/src/ops/perl6.ops
index 640d8d4..b50ac01 100644
--- a/src/ops/perl6.ops
+++ b/src/ops/perl6.ops
@@ -159,7 +159,7 @@ inline op is_uprop(out INT, in STR, in STR, in INT)
:base_core {
}
/* try bidi tests */
- if (strncmp(cstr, "Bidi", 2) == 0) {
+ if (strncmp(cstr, "Bidi", 4) == 0) {
strwhich = u_getPropertyValueEnum(UCHAR_BIDI_CLASS, cstr+4);
ordwhich = u_getIntPropertyValue(ord, UCHAR_BIDI_CLASS);
if (strwhich != UCHAR_INVALID_CODE) {
--
1.6.3.rc0.154.g06890
