From: Tim Jenness <tjenness@cpan.org>
Date: Thu, 31 May 2001 16:15:37 +0000 (-1000)
Subject: Fix -Wall on XS::Typemap
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8876ff82c32e1f2c2fd30ec37c28e8bfb676c908;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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: