Skip to content

Instantly share code, notes, and snippets.

View kazeburo's full-sized avatar

Masahiro Nagano kazeburo

View GitHub Profile
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));
% 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.
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);
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 {
package Plack::Middleware::ReverseProxy;
use strict;
no warnings;
use Carp;
use parent qw(Plack::Middleware);
sub call {
my $self = shift;
#!/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;
#!/usr/bin/perl
package KickstartHTTPD;
use strict;
use warnings;
use base qw(HTTP::Server::Simple::CGI);
my $KICKSTART;
sub kickstart {
#!/usr/bin/perl
use strict;
use warnings;
use AE;
use AnyEvent::MPRPC::Server;
use AnyEvent::Curl;
use Parallel::Prefork;
#!/usr/bin/perl
use strict;
use warnings;
use AE;
use AnyEvent::HTTP;
use AnyEvent::Curl;
use AnyEvent::MPRPC::Server;
use Coro;
#!/usr/bin/perl
use strict;
use warnings;
use AnyEvent;
use AnyEvent::Curl;
use Coro;
use Coro::Channel;
use Coro::AnyEvent;