Ticket #43150: perl5.16-dNOOP.diff

Portfile

@@ -5 +5 @@
 
 name                perl5.16
 version             5.16.1
-revision            3
+revision            4
 set branch          [join [lrange [split ${version} .] 0 1] .]
 categories          lang
 license             {Artistic-1 GPL}
@@ -29 +29 @@
 depends_lib-append  port:gdbm
 
 patchfiles          patch-Configure.diff \
-                    patch-handy.h.stdbool.diff
+                    patch-handy.h.stdbool.diff \
+                    patch-perl.h.diff
 
 platform darwin {
     patchfiles-append   patch-hints_darwin.sh.diff

files/patch-perl.h.diff

@@ +1 @@
+--- perl.h.orig
++++ perl.h
+@@ -359,7 +359,11 @@
+ /* Rats: if dTHR is just blank then the subsequent ";" throws an error */
+ /* Declaring a *function*, instead of a variable, ensures that we don't rely
+    on being able to suppress "unused" warnings.  */
++#ifdef __cplusplus
++#define dNOOP (void)0
++#else
+ #define dNOOP extern int Perl___notused(void)
++#endif
+ 
+ #ifndef pTHX
+ /* Don't bother defining tTHX and sTHX; using them outside