Changeset 21416 for perl5

Timestamp:

07/20/08 18:45:50 (4 months ago)

Author:

fglock

Message:

fixed char class with spaces

Location:

perl5/Pugs-Compiler-Rule

Files:

• Changes (modified) (1 diff)
• lib/Pugs/Compiler/Rule.pm (modified) (1 diff)
• lib/Pugs/Emitter/Rule/Perl5/CharClass.pm (modified) (1 diff)
• t/13-char_classes.t (modified) (3 diffs)

perl5/Pugs-Compiler-Rule/Changes

@@ +1 @@
+0.30  2008-07-20
+- fixed char class with spaces
+
 0.29  2008-07-12
 - minor fix in test output

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

@@ -5 +5 @@
 package Pugs::Compiler::Rule;
 
-our $VERSION = '0.29';
+our $VERSION = '0.30';
 
 use base 'Pugs::Compiler::Regex';

perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/CharClass.pm

@@ -33 +33 @@
         my ( $op, $cmd ) = /(.)(.*)/;
 
-        $cmd =~ s/\s//g;
+        $cmd =~ s/\s//g
+            unless $cmd =~ /\\c\[/;
 
         #if ( $last_cmd eq '-'

perl5/Pugs-Compiler-Rule/t/13-char_classes.t

@@ -1 +1 @@
 
-use Test::More tests => 22;
+use Test::More tests => 25;
 use Data::Dumper;
 $Data::Dumper::Indent = 1;
@@ -123 +123 @@
 
 {
+    my $rule = Pugs::Compiler::Regex->compile( 
+        '^<+[\c[LATIN CAPITAL LETTER A]]>$' );
+    is( "".$rule->match( "3" ), "",  '3 unicode regex' );
+    is( "".$rule->match( "A" ), "A", 'A' );
+    is( "".$rule->match( "b" ), "",  'b' );
+}
+
+{
     my $rule = Pugs::Compiler::Regex->compile( '^<+[3]+[a..z]-[bx]>$' );
     is( "".$rule->match( "3" ), "3", '3 ^<+[a..z]-[bx]>$ regex' );
@@ -128 +136 @@
     is( "".$rule->match( "b" ), "",  'b' );
 }
+
+