# New Ticket Created by James Rouzier # Please include the string: [perl #22995] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=22995 >
This fixes the op cmp INT, STR, STR so it would only return 1,0,-1. So it will follow this behavior in core.ops Sets $1 to -1 if $2 < $3, +1 if $2 > $3, and 0 otherwise. -- James Jude Rouzier [EMAIL PROTECTED] http://theotherside.com/ -- -- attachment 1 ------------------------------------------------------ url: http://rt.perl.org/rt2/attach/60910/44990/065738/string.patch
Index: string.c =================================================================== RCS file: /cvs/public/parrot/string.c,v retrieving revision 1.134 diff -u -r1.134 string.c --- string.c 9 Jul 2003 16:47:08 -0000 1.134 +++ string.c 14 Jul 2003 17:57:14 -0000 @@ -979,6 +979,11 @@ else if (s2start < s2end) cmp = -1; } + else if (cmp > 0) { + cmp = 1; + } + else + cmp = -1; return cmp; }