perl-unicode

Re: [perl #22814] Non-deterministic problem with unicode regexps

2003-06-30 12:30:37

Hello.

Well, Unicode::Normalize 0.23 is released.
http://search.cpan.org/author/SADAHIRO/Unicode-Normalize-0.23/

Documentations are also revised at some points.

Thank you,
SADAHIRO Tomoyuki

Call ID Numbers (via RT) <perlbug-followup(_at_)perl(_dot_)org> writes:

This is the closest I've been able to come to a simple test 
case(_dot_)perl5-porters(_at_)perl(_dot_)or

----------cut here----------
#!/usr/local/bin/perl5

use Unicode::Normalize;
use Encode;     # This appears to be significant...

$a = 'Hello ++World!';

$a = NFKC($a);  # Has side effect of upgrading $a to utf-8
print "$a\n";   # $a prints correctly
'' =~ /$a/;     # But the regexp error message doesn't
----------cut here----------

oops, if any problem would be not found by $a = NFD($a) or $a = NFKD($a),
parhaps, due to Unicode::Normalize::compose?
--- Normalize.xs~     Tue Jun 10 16:49:30 2003
+++ Normalize.xs      Sat Jun 28 00:07:24 2003
@@ -378,6 +378,7 @@
      }
      uvS = uv;
     } /* for */
+    *d = '\0';
     SvCUR_set(dst, d - (U8*)SvPVX(dst));
     RETVAL = dst;
   OUTPUT:


<Prev in Thread] Current Thread [Next in Thread>
  • Re: [perl #22814] Non-deterministic problem with unicode regexps, SADAHIRO Tomoyuki <=