[perl #22995] [PATCH] op cmp INT STR STR

[via RT]

# 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;
 }