follow alternative rspace entries without backtracking, explicitly resolve

[scpubgit/DX.git] / lib / DX / QueryState.pm

diff --git a/lib/DX/QueryState.pm b/lib/DX/QueryState.pm
index ac247c1..4be7b1c 100644 (file)
--- a/lib/DX/QueryState.pm
+++ b/lib/DX/QueryState.pm
@@ -70,6 +70,15 @@ sub with_additional_proposition {
                 );
         }
       }
+      if ((my $next_step = $ss->next_step)->can('original_search_state')) {
+         $but{next_step}
+           = $seen{$next_step}
+           ||= $next_step->but(
+                 original_search_state
+                   => $next_step->original_search_state->$_munge
+               );
+      }
+       
       $ss->but(%but);
     };
   };