Changeset 21435 for perl5

Timestamp:

07/22/08 13:08:42 (4 months ago)

Author:

fglock

Message:

[PCR] added unicode property 'isLr'

Location:

perl5/Pugs-Compiler-Rule

Files:

• Changes (modified) (1 diff)
• lib/Pugs/Grammar/Base.pm (modified) (1 diff)

perl5/Pugs-Compiler-Rule/Changes

@@ +1 @@
+- added unicode property 'isLr'
+
 0.32  2008-07-21
 0.31  2008-07-21

perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm

@@ -170 +170 @@
         {
           local $@;
-          eval ' my $s="a"; $s =~ /\p{' . $meth . '}/ ';
+          my $p5 = '\p{' . $meth . '}';
+             $p5 = '(?:\p{isLl}|\p{isLu}|\p{isLt})' if $meth eq 'isLr';
+          eval ' my $s="a"; $s =~ /$p5/ ';
           unless ( $@ ) {
-            *{$meth} = Pugs::Compiler::RegexPerl5->compile( 
-              '\p{' . $meth . '}'
-            )->code;
+            *{$meth} = Pugs::Compiler::RegexPerl5->compile($p5)->code;
             return $meth->( @_ );
           }