"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/lib/MemcachedTest.pm" between
memcached-1.6.12.tar.gz and memcached-1.6.13.tar.gz

About: memcached is a high-performance, distributed memory object caching system, generic in nature, but originally intended for use in speeding up dynamic web applications by alleviating database load.

MemcachedTest.pm  (memcached-1.6.12):MemcachedTest.pm  (memcached-1.6.13)
skipping to change at line 21 skipping to change at line 21
# cwd == builddir. # cwd == builddir.
use Cwd; use Cwd;
my $builddir = getcwd; my $builddir = getcwd;
my @unixsockets = (); my @unixsockets = ();
@EXPORT = qw(new_memcached sleep @EXPORT = qw(new_memcached sleep
mem_get_is mem_gets mem_gets_is mem_stats mem_move_time mem_get_is mem_gets mem_gets_is mem_stats mem_move_time
supports_sasl free_port supports_drop_priv supports_extstore supports_sasl free_port supports_drop_priv supports_extstore
wait_ext_flush supports_tls enabled_tls_testing run_help wait_ext_flush supports_tls enabled_tls_testing run_help
supports_unix_socket); supports_unix_socket get_memcached_exe supports_proxy);
use constant MAX_READ_WRITE_SIZE => 16384; use constant MAX_READ_WRITE_SIZE => 16384;
use constant SRV_CRT => "server_crt.pem"; use constant SRV_CRT => "server_crt.pem";
use constant SRV_KEY => "server_key.pem"; use constant SRV_KEY => "server_key.pem";
use constant CLIENT_CRT => "client_crt.pem"; use constant CLIENT_CRT => "client_crt.pem";
use constant CLIENT_KEY => "client_key.pem"; use constant CLIENT_KEY => "client_key.pem";
use constant CA_CRT => "cacert.pem"; use constant CA_CRT => "cacert.pem";
my $testdir = $builddir . "/t/"; my $testdir = $builddir . "/t/";
my $client_crt = $testdir. CLIENT_CRT; my $client_crt = $testdir. CLIENT_CRT;
skipping to change at line 218 skipping to change at line 218
return 1 if $output =~ /sasl/i; return 1 if $output =~ /sasl/i;
return 0; return 0;
} }
sub supports_extstore { sub supports_extstore {
my $output = print_help(); my $output = print_help();
return 1 if $output =~ /ext_path/i; return 1 if $output =~ /ext_path/i;
return 0; return 0;
} }
sub supports_proxy {
my $output = print_help();
return 1 if $output =~ /proxy_config/i;
return 0;
}
sub supports_tls { sub supports_tls {
my $output = print_help(); my $output = print_help();
return 1 if $output =~ /enable-ssl/i; return 1 if $output =~ /enable-ssl/i;
return 0; return 0;
} }
sub supports_unix_socket { sub supports_unix_socket {
my $output = print_help(); my $output = print_help();
return 1 if $output =~ /unix-socket/i; return 1 if $output =~ /unix-socket/i;
return 0; return 0;
skipping to change at line 308 skipping to change at line 314
if ($args =~ /-l (\S+)/ || (($ssl_enabled || $unix_socket_disabled) && ($arg s !~ /-s (\S+)/))) { if ($args =~ /-l (\S+)/ || (($ssl_enabled || $unix_socket_disabled) && ($arg s !~ /-s (\S+)/))) {
if (!$port) { if (!$port) {
$port = free_port(); $port = free_port();
} }
$udpport = free_port("udp"); $udpport = free_port("udp");
$args .= " -p $port"; $args .= " -p $port";
if (supports_udp() && $args !~ /-U (\S+)/) { if (supports_udp() && $args !~ /-U (\S+)/) {
$args .= " -U $udpport"; $args .= " -U $udpport";
} }
if ($ssl_enabled) { if ($ssl_enabled) {
$args .= " -Z -o ssl_chain_cert=$server_crt -o ssl_key=$server_key"; $args .= " -Z";
if ($args !~ /-o ssl_chain_cert=(\S+)/) {
$args .= " -o ssl_chain_cert=$server_crt";
}
if ($args !~ /-o ssl_key=(\S+)/) {
$args .= " -o ssl_key=$server_key";
}
} }
} elsif ($args !~ /-s (\S+)/) { } elsif ($args !~ /-s (\S+)/) {
my $num = @unixsockets; my $num = @unixsockets;
my $file = "/tmp/memcachetest.$$.$num"; my $file = "/tmp/memcachetest.$$.$num";
$args .= " -s $file"; $args .= " -s $file";
push(@unixsockets, $file); push(@unixsockets, $file);
} }
my $childpid = fork(); my $childpid = fork();
 End of changes. 3 change blocks. 
2 lines changed or deleted 14 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)