# HG changeset patch # User Sergey Kandaurov # Date 1485795998 -10800 # Node ID cfe1bc3162f91df3a2160033bbdb17e8b33e9c01 # Parent 6c27d5cab1d7956292d46daf776f986173138bf9 Tests: fixed capturing Server header in server_tokens.t. diff --git a/server_tokens.t b/server_tokens.t --- a/server_tokens.t +++ b/server_tokens.t @@ -100,8 +100,7 @@ sub http_body { sub http_get_server { my ($url) = @_; - http_get($url) =~ /^Server:\s(.+?)\x0d?$/mi; - return $1; + return http_get($url) =~ /^Server:\s(.+?)\x0d?$/mi && $1 || undef; } ###############################################################################