Commit 78f52c05 authored by Daniel Stenberg's avatar Daniel Stenberg
Browse files

Report the correct size when 'verifiedserver' is requested.

parent d818cbe5
Loading
Loading
Loading
Loading
+3 −1
Original line number Diff line number Diff line
@@ -282,7 +282,9 @@ sub RETR_command {
    if($testno =~ /^verifiedserver$/) {
        # this is the secret command that verifies that this actually is
        # the curl test server
        print "150 Binary junk (10 bytes).\r\n";
        my $response = "WE ROOLZ: $$\r\n";
        my $len = length($response);
        print "150 Binary junk ($len bytes).\r\n";
        print SOCK "WE ROOLZ: $$\r\n";
        close(SOCK);
        print "226 File transfer complete\r\n";