Fix sigspace not respecting :r optimization

sorear · Sep 8, 2010 · ffb2ed0 · ffb2ed0
1 parent b939063
commit ffb2ed0
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 1 deletion.
diff --git a/src/Optimizer/RxSimple.pm b/src/Optimizer/RxSimple.pm
@@ -62,4 +62,15 @@ sub RxOp::Subrule::mayback { my ($self) = @_;
     return !$self->selfcut;
 }
 
+sub RxOp::Sigspace::rxsimp { my ($self, $cut) = @_;
+    if ($cut) {
+        return RxOp::Sigspace->new(selfcut => 1);
+    }
+    return $self;
+}
+
+sub RxOp::Sigspace::mayback { my ($self) = @_;
+    return !$self->selfcut;
+}
+
 1;
diff --git a/src/RxOp.pm b/src/RxOp.pm
@@ -358,10 +358,12 @@ use CgOp;
     package RxOp::Sigspace;
     use Moose;
     extends 'RxOp';
+    has selfcut => (isa => 'Bool', is => 'ro', default => 0);
 
     sub code {
         my ($self, $body) = @_;
-        RxOp::Subrule->new(name => 'ws')->code($body);
+        RxOp::Subrule->new(name => 'ws',
+            selfcut => $self->selfcut)->code($body);
     }
 
     sub lad {