Current Path : /home/usr.opt/mysql57/mysql-test/suite/ndb_memcache/include/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
Current File : //home/usr.opt/mysql57/mysql-test/suite/ndb_memcache/include/memcached_wait_for_ready.inc |
# # Wait for the memcached server to be ready # -- perl WAIT_READY use lib "lib/"; use IO::File; use My::Memcache; my $port = $ENV{NDB_MEMCACHED_1_PORT} or die "Need NDB_MEMCACHED_1_PORT"; my $mc = My::Memcache->new(); my $r = $mc->connect("localhost",$port); die unless($r); $mc->get("dummy"); $mc->note_config_version(); WAIT_READY