kazeburo

diff -ur Cache-Memcached-Fast-0.14.orig/Fast.xs Cache-Memcached-Fast-0.14/Fast.xs
--- Cache-Memcached-Fast-0.14.orig/Fast.xs        2009-02-07 20:34:57.000000000 +0900
+++ Cache-Memcached-Fast-0.14/Fast.xs     2009-05-14 15:12:35.000000000 +0900
@@ -207,6 +207,10 @@
 
   memd->servers = newAV();
 
+  ps = hv_fetch(conf, "old_ketama_algo", 15, 0);
+  if (ps && SvOK(*ps))
+    client_set_old_ketama_algo(c, SvTRUE(*ps));

kazeburo

% prove -Ilib t/01-starter.t
t/01-starter.t .. start_server (pid:32365) starting now...
starting new worker 32366
t/01-starter.t .. 1/9 **** GOT: HUP
@@@ before waitpid at /home/masahiro/develop/server-starter/Server-Starter-0.03/lib/Server/Starter.pm line 154.
@@@ after waitpid at /home/masahiro/develop/server-starter/Server-Starter-0.03/lib/Server/Starter.pm line 156.
before wait3
t/01-starter.t .. 5/9 0 at t/01-starter.t line 44.
1 at t/01-starter.t line 46.

kazeburo

diff --git a/lib/Filesys/Notify/Simple.pm b/lib/Filesys/Notify/Simple.pm
index 70df639..44f4828 100644
--- a/lib/Filesys/Notify/Simple.pm
+++ b/lib/Filesys/Notify/Simple.pm
@@ -47,7 +47,8 @@ sub wait_inotify2 {
     Linux::Inotify2->import;
     my $inotify = Linux::Inotify2->new;
 
-    for my $path (@path) {
+    my $fs = _full_scan(@path);

kazeburo

package Plack::Server::AnyEvent::Prefork;
use strict;
use warnings;

use parent qw(Plack::Server::AnyEvent);
use Parallel::Prefork;
use Guard;
use Try::Tiny;

sub new {

kazeburo

package Plack::Middleware::ReverseProxy;


use strict;
no warnings;
use Carp;
use parent qw(Plack::Middleware);

sub call {
    my $self = shift;

kazeburo

#!/usr/bin/perl

use strict;
use warnings;
use Benchmark;
use Net::CIDR::Lite;
use Net::IP::Match::XS;
use Net::IP::Match::Bin;
use Net::IP::Match::Regexp;
use Net::Patricia;

kazeburo

#!/usr/bin/perl

package KickstartHTTPD;

use strict;
use warnings;
use base qw(HTTP::Server::Simple::CGI);

my $KICKSTART;
sub kickstart {

kazeburo

#!/usr/bin/perl

use strict;
use warnings;

use AE;
use AnyEvent::MPRPC::Server;
use AnyEvent::Curl;
use Parallel::Prefork;

kazeburo

#!/usr/bin/perl

use strict;
use warnings;

use AE;
use AnyEvent::HTTP;
use AnyEvent::Curl;
use AnyEvent::MPRPC::Server;
use Coro;

kazeburo

#!/usr/bin/perl

use strict;
use warnings;

use AnyEvent;
use AnyEvent::Curl;
use Coro;
use Coro::Channel;
use Coro::AnyEvent;