Fix parsing of regex backslash classes

sorear · Aug 24, 2010 · 43b3f6a · 43b3f6a
1 parent 7a1ca98
commit 43b3f6a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Niecza/Actions.pm b/src/Niecza/Actions.pm
@@ -539,7 +539,7 @@ sub metachar__S_Lt_Gt { my ($cl, $M) = @_;
 sub metachar__S_Back { my ($cl, $M) = @_;
     my $cc = $M->{backslash}{_ast};
     $M->{_ast} = ref($cc) ?
-        RxOp::CClass->new(cc => CClass->build(@$cc),
+        RxOp::CClass->new(cc => $cc,
             igcase => $::RX{i}, igmark => $::RX{a}) :
         RxOp::String->new(text => $cc,
             igcase => $::RX{i}, igmark => $::RX{a});
@@ -832,7 +832,7 @@ sub nibbler { my ($cl, $M) = @_;
         }
         $M->{_ast} = $CClass::Empty;
         $M->{_ast} = $M->{_ast}->plus($_) for @bits;
-        say(YAML::XS::Dump($M->{_ast}));
+        #say(YAML::XS::Dump($M->{_ast}));
     } else {
         # garden variety nibbler
         my @bits;