trace recheck failure

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

diff --git a/lib/DX/Hypothesis.pm b/lib/DX/Hypothesis.pm
index 1bad497..59e0480 100644 (file)
--- a/lib/DX/Hypothesis.pm
+++ b/lib/DX/Hypothesis.pm
@@ -67,7 +67,12 @@ sub but_recheck_for {
 
   my $ss = DX::SearchState->new_for($hyp);
 
-  return undef unless my $sol_ss = $ss->find_solution;
+  my $sol_ss = $ss->find_solution;
+
+  unless ($sol_ss) {
+    trace 'step.recheck.fail' => 'argh';
+    return undef;
+  }
 
   my $sol_rps = $sol_ss->current_hypothesis->resolved_propositions;