Fix -Wall on XS::Typemap

Message-ID: <Pine.LNX.4.33.0105311610110.9337-100000@lapaki.jach.hawaii.edu>

p4raw-id: //depot/perl@10370

diff --git a/ext/XS/Typemap/Typemap.xs b/ext/XS/Typemap/Typemap.xs
index 5b1ab84..b97a9bf 100644 (file)
--- a/ext/XS/Typemap/Typemap.xs
+++ b/ext/XS/Typemap/Typemap.xs
@@ -769,6 +769,7 @@ T_ARRAY( dummy, array, ... )
  PREINIT:
   U32 size_RETVAL;
  CODE:
+  dummy += 0; /* Fix -Wall */
   size_RETVAL = ix_array;
   RETVAL = array;
  OUTPUT: