perl-unicode

Re: binary compare of scalars

2000-05-03 09:20:38
On Wed, May 03, 2000 at 08:47:31AM -0700, Gurusamy Sarathy wrote:
On Wed, 03 May 2000 10:19:47 +0200, "Stefan Eissing" wrote:
Background: I have patched DBD::Oracle to recognize utf8 locale
and return utf8 scalars for Perl 5.6.0. It works. In one of the
standard tests however, a string with utf8 chars is inserted
into a BLOB, correctly read back again, but not eq to the original
string. 

Perl 5.6.0 has known bugs in Unicode support (which is why it is
marked "experimental").  eq not knowing about SvUTF8 is one of them.

The attached patch should help.


Sarathy
gsar(_at_)ActiveState(_dot_)com
-----------------------------------8<-----------------------------------
Change 5921 by gsar(_at_)auger on 2000/04/24 06:58:26

      make eq unicode-aware (from Gisle Aas); fix bogus tests revealed

-    ok $&, pack("C*", ord(">"), 0342, 0230, 0272);
-    $test++;
+        my $tmp = $&;
+     ok $tmp, pack("C*", ord(">"), 0342, 0230, 0272);
+     $test++;                                # 23

Not doing a copy there was deliberate. IIRC there was also a test that did a 
copy.

This was so that the SV with the magic went into the compare operator

Graham.

<Prev in Thread] Current Thread [Next in Thread>