develooper Front page | perl.perl5.porters | Postings from September 2001

Not OK: perl@12272

Thread Next
From:
andreas.koenig
Date:
September 29, 2001 23:02
Subject:
Not OK: perl@12272
Message ID:
m3ite1kyle.fsf@anima.de
op/pat.............................Can't find Unicode character property "InLatin1Supplement" at op/pat.t line 1639
FAILED at test 591

The bug was that a new paren was introduced, so $1 became $2. One
possible fix:

--- utf8_heavy.pl~	Sun Sep 30 07:18:08 2001
+++ utf8_heavy.pl	Sun Sep 30 07:53:56 2001
@@ -26,7 +26,7 @@
     while (($caller = caller($i)) eq __PACKAGE__) { $i++ }
     my $encoding = $enc{$caller} || "unicore";
     (my $file = $type) =~ s!::!/!g;
-    if ($file =~ /^(In|in|IN|iN)[- _]?(.+?)\s*$/) { # /i would cause recursion.
+    if ($file =~ /^(?i:in)[- _]?(.+?)\s*$/) { # /i would cause recursion.
 	my $In = $1;
 	defined %utf8::In || do "$encoding/In.pl";
 	my $prefix = substr(lc($In), 0, 3);


Now at least the test passes.


-- 
andreas

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About