Fix broken wildcard use in ssh URI introduced in previous patch. Thanks to Tobias...

diff --git a/pgbadger b/pgbadger
index 3d18939dd4566e806e4a5c9d4bef4822aa8b7dab..e50516400ee3de4cab072ac92898934d5f76d054 100755 (executable)
--- a/pgbadger
+++ b/pgbadger
@@ -2084,8 +2084,9 @@ sub set_file_list
                        # Get files from remote host
                        if ($file !~ /^ssh:/)
                        {
-                               &logmsg('DEBUG', "Looking for remote filename using command: $remote_command \"ls '$file'\"");
-                               my @rfiles = `$remote_command "ls '$file'"`;
+                               my($filename, $dirs, $suffix) = fileparse($file);
+                               &logmsg('DEBUG', "Looking for remote filename using command: $remote_command \"ls '$dirs'$filename\"");
+                               my @rfiles = `$remote_command "ls '$dirs'$filename"`;
                                foreach my $f (@rfiles)
                                {
                                        push(@lfiles, "$f$fmt");
@@ -2096,8 +2097,9 @@ sub set_file_list
                                my $host_info = $1;
                                my $file = $2;
                                my $ssh = $ssh_command || 'ssh';
-                               &logmsg('DEBUG', "Looking for remote filename using command: $ssh $host_info \"ls '$file'\"");
-                               my @rfiles = `$ssh $host_info "ls '$file'"`;
+                               my($filename, $dirs, $suffix) = fileparse($file);
+                               &logmsg('DEBUG', "Looking for remote filename using command: $ssh $host_info \"ls '$dirs'$filename\"");
+                               my @rfiles = `$ssh $host_info "ls '$dirs'$filename"`;
                                foreach my $f (@rfiles)
                                {
                                        push(@lfiles, "ssh://$host_info/$f$fmt");