try to resolve missing bool/true/false problems with perl bindings

src/bindings/perl/Makefile.PL

@@ -10,6 +10,6 @@ WriteMakefile(
     LIBS => ["-lhammer"],
     OBJECT => 'hammer_wrap.o',
     INC => '-I../..',
-    CCFLAGS => "$Config{ccflags} -DSWIG -std=gnu99",
+    CCFLAGS => "$Config{ccflags} -DSWIG -DHAMMER_INTERNAL__NO_STDARG_H -std=gnu99",
     );
 

src/bindings/perl/hammer.i

@@ -1,6 +1,7 @@
 %module hammer;
 %begin %{
 #include <unistd.h>
+#include <stdbool.h>
 #include <stdint.h>
 %}
 
@@ -36,7 +37,7 @@
     SWIG_exception_fail(SWIG_TypeError, "Expected array ref");
 
   AV* av = (AV*) SvRV($input);
-  size_t amax = av_top_index(av) + 1; // I want the length, not the top index...
+  size_t amax = av_len(av) + 1; // I want the length, not the top index...
   // TODO: is this array copied?
   $1 = malloc((amax+1) * sizeof(*$1));
   $1[amax] = NULL;

src/hammer.h

@@ -35,9 +35,7 @@ extern "C" {
 
 #ifndef __cplusplus
 #ifndef HAMMER_INTERNAL__NO_STDARG_H
-#ifndef SWIGPERL
 typedef int bool;
-#endif // SWIGPERL
 #endif // HAMMER_INTERNAL__NO_STDARG_H
 #endif