# HG changeset patch # User Homutov Vladimir # Date 1358168270 -14400 # Node ID de733822783265c7b15bf74aa59756a10c53bd82 # Parent 8f280348d76f1b3e379dadc7f9a7fb0c4a87c17e Tests: removed trailing spaces. diff --git a/lib/Test/Nginx.pm b/lib/Test/Nginx.pm --- a/lib/Test/Nginx.pm +++ b/lib/Test/Nginx.pm @@ -336,7 +336,7 @@ sub test_globals_http() { $s .= "access_log $self->{_testdir}/access.log;\n"; $s .= "client_body_temp_path $self->{_testdir}/client_body_temp;\n"; - $s .= "fastcgi_temp_path $self->{_testdir}/fastcgi_temp;\n" + $s .= "fastcgi_temp_path $self->{_testdir}/fastcgi_temp;\n" if $self->has_module('fastcgi'); $s .= "proxy_temp_path $self->{_testdir}/proxy_temp;\n" diff --git a/lib/Test/Nginx/IMAP.pm b/lib/Test/Nginx/IMAP.pm --- a/lib/Test/Nginx/IMAP.pm +++ b/lib/Test/Nginx/IMAP.pm @@ -65,7 +65,7 @@ sub check { } sub ok { - my $self = shift; + my $self = shift; Test::More->builder->like($self->read(), qr/^\S+ OK/, @_); } diff --git a/lib/Test/Nginx/POP3.pm b/lib/Test/Nginx/POP3.pm --- a/lib/Test/Nginx/POP3.pm +++ b/lib/Test/Nginx/POP3.pm @@ -65,7 +65,7 @@ sub check { } sub ok { - my $self = shift; + my $self = shift; Test::More->builder->like($self->read(), qr/^\+OK/, @_); } diff --git a/lib/Test/Nginx/SMTP.pm b/lib/Test/Nginx/SMTP.pm --- a/lib/Test/Nginx/SMTP.pm +++ b/lib/Test/Nginx/SMTP.pm @@ -64,12 +64,12 @@ sub check { } sub ok { - my $self = shift; + my $self = shift; Test::More->builder->like($self->read(), qr/^2\d\d /, @_); } sub authok { - my $self = shift; + my $self = shift; Test::More->builder->like($self->read(), qr/^235 /, @_); } diff --git a/ssl_sni.t b/ssl_sni.t --- a/ssl_sni.t +++ b/ssl_sni.t @@ -66,7 +66,7 @@ EOF eval { require IO::Socket::SSL; die if $IO::Socket::SSL::VERSION < 1.56; }; plan(skip_all => 'IO::Socket::SSL version >= 1.56 required') if $@; -eval { +eval { my $ctx = Net::SSLeay::CTX_new() or die; my $ssl = Net::SSLeay::new($ctx) or die; Net::SSLeay::set_tlsext_host_name($ssl, 'example.org') == 1 or die; @@ -153,7 +153,7 @@ sub get_cert_cn { } sub https_get_host { - my ($host, $sni) = @_; + my ($host, $sni) = @_; my $s = get_ssl_socket($sni ? $sni : $host); return http(< $s);