fix DBI connection string, RT#39250

diff --git a/FS/bin/freeside-cdr-asterisk_sql b/FS/bin/freeside-cdr-asterisk_sql
index 8b51681..160780b 100755 (executable)
--- a/FS/bin/freeside-cdr-asterisk_sql
+++ b/FS/bin/freeside-cdr-asterisk_sql
@@ -16,8 +16,8 @@ my $user = shift or die &usage;
 my $engine = $opt{e} || 'mysql';
 
 my $dsn = "dbi:$engine";
-$dsn .= ":database=$opt{D}" if $opt{D};
-$dsn .= ":host=$opt{H}" if $opt{H};
+$dsn .= ":database=$opt{D}"; # if $opt{D};
+$dsn .= ";host=$opt{H}" if $opt{H};
 
 my $dbi = DBI->connect($dsn, $opt{U}, $opt{P}) 
   or die $DBI::errstr;