From 2415724d5fd3143b87c2bbafdc1f780c5a402dcc Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Wed, 26 Jan 2005 23:18:31 +0000
Subject: [PATCH] Make the server ignore the given PORT address, to make it
 possible to test curl's -P option easier.

---
 tests/ftpserver.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 422c43097..dca91f508 100644
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -488,7 +488,8 @@ sub PORT_command {
         print "500 silly you, go away\r\n";
         return 0;
     }
-    my $iaddr = inet_aton("$1.$2.$3.$4");
+    #my $iaddr = inet_aton("$1.$2.$3.$4");
+    my $iaddr = inet_aton("127.0.0.1"); # always use localhost
 
     my $port = ($5<<8)+$6;