X-Git-Url: http://sjero.net/git/?p=wget;a=blobdiff_plain;f=tests%2FHTTPServer.pm;h=627c10283f539c0af44a5554dc13bcffd2e15d60;hp=58b1a363b4fc0570ad45858f5fde20c80cb6d747;hb=d21dde51b84efef7254ae9932f9095a46945b809;hpb=57c9e17e6cfef9bc0e8ab9fa8edf9d131a233e57

diff --git a/tests/HTTPServer.pm b/tests/HTTPServer.pm
index 58b1a363..627c1028 100644
--- a/tests/HTTPServer.pm
+++ b/tests/HTTPServer.pm
@@ -123,7 +123,7 @@ sub send_response {
             next;
         }
         # fill in content
-        $content = $self->_substitute_port($content);
+        $content = $self->_substitute_port($content) if defined $content;
         $resp->content($content);
         print STDERR "HTTP::Response with content: \n", $resp->as_string if $log;
     }
@@ -221,6 +221,7 @@ sub verify_request_headers {
         my $rhdr = $req->header ($hdrname);
         my $ehdr = $url_rec->{'request_headers'}{$hdrname};
         unless (defined $rhdr && $rhdr =~ $ehdr) {
+            $rhdr = '' unless defined $rhdr;
             print STDERR "\n*** Mismatch on $hdrname: $rhdr =~ $ehdr\n";
             return undef;
         }