X-Git-Url: http://sjero.net/git/?p=wget;a=blobdiff_plain;f=tests%2FFTPServer.pm;fp=tests%2FFTPServer.pm;h=87e7983977f897ae78fb3148d3f164c0cdccaa8b;hp=2758ab1e5abdf0956f268b0857fd76f599c4ee7e;hb=baf999440258e85ffda5ab07367d35fb8042e12e;hpb=068991e8a06bd7f12eb4688110edee8fac7b708c

diff --git a/tests/FTPServer.pm b/tests/FTPServer.pm
index 2758ab1e..87e79839 100644
--- a/tests/FTPServer.pm
+++ b/tests/FTPServer.pm
@@ -489,6 +489,12 @@ sub new {
                                              Proto => 'tcp',
                                              Type => SOCK_STREAM)
                                         or die "bind: $!";
+
+    foreach my $file (keys %{$self->{_input}}) {
+        my $ref = \$self->{_input}{$file}{content};
+        $$ref =~ s/{{port}}/$self->sockport/eg;
+    }
+
     return $self;
 }