support binary-star; WiP

#8
shlomif · Jan 13, 2024 · ea5ffb1 · ea5ffb1
1 parent b80b817
commit ea5ffb1
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/...litaire/Games-Solitaire-BlackHole-Solver/lib/Games/Solitaire/BlackHole/Solver/App/Base.pm b/...litaire/Games-Solitaire-BlackHole-Solver/lib/Games/Solitaire/BlackHole/Solver/App/Base.pm
@@ -181,7 +181,8 @@ LOOP:
         my $str;
         if ( $type eq "card" )
         {
-            $str = $move_rec->{"str"};
+            $str = "";
+            $str .= $move_rec->{"str"};
         }
         elsif ( $type eq "board" )
         {
@@ -191,7 +192,9 @@ LOOP:
             }
             $foundation_cards[ $move_rec->{"changed_foundation"} ] =
                 $move_rec->{"foundation_str"};
-            $str = join( " ", "Foundations:", @foundation_cards ) . "\n";
+            $str = "";
+            $str .= "\n";
+            $str .= join( " ", "Foundations:", @foundation_cards ) . "\n";
             $str .= $move_rec->{"str"};
         }
         else