perl-solver-try-non-fatal-max-iters-limit-exceeding-for-multiple-argv

shlomif · Feb 4, 2025 · 2af25a6 · 2af25a6
1 parent ac499cc
commit 2af25a6
Showing 1 changed file with 34 additions and 20 deletions.
diff --git a/...le-solitaire/Games-Solitaire-BlackHole-Solver/lib/Games/Solitaire/BlackHole/Solver/App.pm b/...le-solitaire/Games-Solitaire-BlackHole-Solver/lib/Games/Solitaire/BlackHole/Solver/App.pm
@@ -130,29 +130,43 @@ sub run
 
         $self->_next_task;
 
-    QUEUE_LOOP:
-        while ( my $state = $self->_get_next_state_wrapper )
-        {
-            # The foundation
-            my $no_cards = 1;
-
-            my @_pending;
-
-            if (1)
+        eval {
+        QUEUE_LOOP:
+            while ( my $state = $self->_get_next_state_wrapper )
             {
-                $self->_find_moves( \@_pending, $state, \$no_cards );
+                # The foundation
+                my $no_cards = 1;
+
+                my @_pending;
+
+                if (1)
+                {
+                    $self->_find_moves( \@_pending, $state, \$no_cards );
+                }
+
+                if ($no_cards)
+                {
+                    $self->_trace_solution( $state, );
+                    $verdict = 1;
+
+                    # $self->_output_handle->print("END solved run\n");
+                    last QUEUE_LOOP;
+                }
+                last QUEUE_LOOP
+                    if not $self->_process_pending_items( \@_pending, $state );
             }
+        };
+        my $Err = $@;
+        if ( $Err =~ /Exceeded max_iters_limit/ms )
+        {
+            $verdict = 1;
 
-            if ($no_cards)
-            {
-                $self->_trace_solution( $state, );
-                $verdict = 1;
-
-                # $self->_output_handle->print("END solved run\n");
-                last QUEUE_LOOP;
-            }
-            last QUEUE_LOOP
-                if not $self->_process_pending_items( \@_pending, $state );
+            # STDERR->print( $Err . "\n" );
+            die "$Err";
+        }
+        else
+        {
+            die $Err;
         }
         $self->_end_report( $verdict, );
         if ( not $verdict )