neophenix / redis-hiredis Goto Github PK

> perl Makefile.PL 
Checking if your kit is complete...
Looks good
Writing Makefile for Redis::hiredis

> make
cp lib/Redis/hiredis.pm blib/lib/Redis/hiredis.pm
/usr/bin/perl /System/Library/Perl/5.12/ExtUtils/xsubpp  -typemap /System/Library/Perl/5.12/ExtUtils/typemap -typemap typemap  Redis-hiredis.xs > Redis-hiredis.xsc && mv Redis-hiredis.xsc Redis-hiredis.c
Please specify prototyping behavior for Redis-hiredis.xs (see perlxs manual)
clang -c   -arch i386 -arch x86_64 -g -pipe -fno-common -DPERL_DARWIN -fno-strict-aliasing -fstack-protector -I/usr/local/include -Os   -DVERSION=\"0.10.2\" -DXS_VERSION=\"0.10.2\"  "-I/System/Library/Perl/5.12/darwin-thread-multi-2level/CORE"   Redis-hiredis.c
clang -c   -arch i386 -arch x86_64 -g -pipe -fno-common -DPERL_DARWIN -fno-strict-aliasing -fstack-protector -I/usr/local/include -Os   -DVERSION=\"0.10.2\" -DXS_VERSION=\"0.10.2\"  "-I/System/Library/Perl/5.12/darwin-thread-multi-2level/CORE"   dict.c
clang -c   -arch i386 -arch x86_64 -g -pipe -fno-common -DPERL_DARWIN -fno-strict-aliasing -fstack-protector -I/usr/local/include -Os   -DVERSION=\"0.10.2\" -DXS_VERSION=\"0.10.2\"  "-I/System/Library/Perl/5.12/darwin-thread-multi-2level/CORE"   hiredis.c
hiredis.c:799:31: error: second argument to 'va_arg' is of incomplete type 'void'
                    va_arg(ap,void);
                    ~~~~~~~~~~^~~~~
/usr/bin/../lib/clang/4.1/include/stdarg.h:35:50: note: expanded from macro 'va_arg'
#define va_arg(ap, type)    __builtin_va_arg(ap, type)
                                                 ^
1 error generated.
make: *** [hiredis.o] Error 1

git clone --recursive https://github.com/RediSearch/RediSearch.git
cd RediSearch
make build
make run

use Redis::hiredis;
use Data::Dumper;

my $redis = Redis::hiredis->new();
   $redis->connect('127.0.0.1', 6379);

# create index
$redis->command("FT.CREATE my_index SCHEMA title TEXT body TEXT");

# add documents
$redis->command("FT.ADD my_index doc1 1.0 FIELDS title foo body bar");
$redis->command("FT.ADD my_index doc2 1.0 FIELDS title foo_2 body bar_2");

# search
my $search = $redis->command("FT.SEARCH my_index foo");

print Dumper(\$search);

$VAR1 = \[
            1,
            'doc1',
            undef
          ];

1) (integer) 1
2) "doc1"
3) 1) "title"
   2) "foo"
   3) "body"
   4) "bar"