[packages/perl.git] / perl-invalid-void-use.patch

--- perl-5.18.0/sv.h~	2013-05-10 04:30:48.000000000 +0200
+++ perl-5.18.0/sv.h	2013-06-09 21:11:34.889499879 +0200
@@ -330,7 +330,7 @@
 /* this is defined in this peculiar way to avoid compiler warnings.
  * See the <20121213131428.GD1842@iabyn.com> thread in p5p */
 #define SvUPGRADE(sv, mt) \
-    ((void)(SvTYPE(sv) >= (mt) || (sv_upgrade(sv, mt),1)))
+    (SvTYPE(sv) >= (mt) || (sv_upgrade(sv, mt),1))
 
 #define SVf_IOK		0x00000100  /* has valid public integer value */
 #define SVf_NOK		0x00000200  /* has valid public numeric value */
Commit	Line	Data
edf962e9 JR	1	--- perl-5.18.0/sv.h~ 2013-05-10 04:30:48.000000000 +0200
	2	+++ perl-5.18.0/sv.h 2013-06-09 21:11:34.889499879 +0200
	3	@@ -330,7 +330,7 @@
	4	/* this is defined in this peculiar way to avoid compiler warnings.
	5	* See the <20121213131428.GD1842@iabyn.com> thread in p5p */
	6	#define SvUPGRADE(sv, mt) \
	7	- ((void)(SvTYPE(sv) >= (mt) \|\| (sv_upgrade(sv, mt),1)))
	8	+ (SvTYPE(sv) >= (mt) \|\| (sv_upgrade(sv, mt),1))
	9
	10	#define SVf_IOK 0x00000100 /* has valid public integer value */
	11	#define SVf_NOK 0x00000200 /* has valid public numeric value */