wip: connect without tcp to localhost db

UPC · May 2, 2024 · 0ae5380 · 0ae5380
1 parent 938a79c
commit 0ae5380
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/lib/Ravada.pm b/lib/Ravada.pm
@@ -3021,7 +3021,7 @@ sub _connect_dbh($self=undef) {
 
     my $data_source = "DBI:$driver:$db";
     $data_source = "DBI:$driver:database=$db;host=$host"
-        if $host && $host ne 'localhost';
+        if $host && $host ne 'localhost' && $host ne '127.0.0.1';
 
     my $con;
     for my $try ( 1 .. 10 ) {
@@ -3040,7 +3040,7 @@ sub _connect_dbh($self=undef) {
 
         return $con if $con && !$err;
         sleep 1;
-        warn "Try $try $@\n";
+        warn "Try $try $data_source $@\n";
     }
     die ($@ or "Can't connect to $driver $db at $host");
 }

diff --git a/t/lib/Test/Ravada.pm b/t/lib/Test/Ravada.pm
@@ -1726,8 +1726,7 @@ sub remove_old_storage_pools() {
     remove_old_storage_pools_void();
 }
 
-sub clean($ldap=undef) {
-    my $file_remote_config = shift;
+sub clean($ldap=undef, $file_remote_config=undef) {
     remove_old_domains();
     remove_old_disks();
     remove_old_pools();