X-Git-Url: http://sjero.net/git/?p=wget;a=blobdiff_plain;f=tests%2FFTPServer.pm;h=2758ab1e5abdf0956f268b0857fd76f599c4ee7e;hp=dd06538749fd83b6045af2c531380972455bf5d1;hb=4a08094db88011153adadbf995103770b20d2a31;hpb=73ff253e371f58dde04ce30f04c59f2000a1b7e5 diff --git a/tests/FTPServer.pm b/tests/FTPServer.pm index dd065387..2758ab1e 100644 --- a/tests/FTPServer.pm +++ b/tests/FTPServer.pm @@ -457,7 +457,7 @@ sub __open_data_connection $_attr_data{$attr}; } - sub _standard_keys + sub _standard_keys { keys %_attr_data; } @@ -562,10 +562,10 @@ sub run print STDERR "in child\n" if $log; - my $conn = { + my $conn = { 'paths' => FTPPaths->new($self->{'_input'}, $self->{'_server_behavior'}), - 'socket' => $socket, + 'socket' => $socket, 'state' => $_connection_states{NEWCONN}, 'dir' => '/', 'restart' => 0, @@ -778,7 +778,7 @@ sub get_list { my $info = $self->get_info($path); return undef unless defined $info; my $list = []; - + if ($info->{'_type'} eq 'd') { for my $item (keys %$info) { next if $item =~ /^_/;