From edf962e9e3a5941d44a0beb6ef441baa55668282 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20R=C4=99korajski?= Date: Sun, 9 Jun 2013 21:13:07 +0200 Subject: [PATCH] - fix gcc error: invalid use of void expression - rel 7 --- perl-invalid-void-use.patch | 11 +++++++++++ perl.spec | 4 +++- 2 files changed, 14 insertions(+), 1 deletion(-) create mode 100644 perl-invalid-void-use.patch diff --git a/perl-invalid-void-use.patch b/perl-invalid-void-use.patch new file mode 100644 index 0000000..fa10785 --- /dev/null +++ b/perl-invalid-void-use.patch @@ -0,0 +1,11 @@ +--- 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 */ diff --git a/perl.spec b/perl.spec index dfc08d8..54786d5 100644 --- a/perl.spec +++ b/perl.spec @@ -44,7 +44,7 @@ %define perl_modversion() %([ -f %{SOURCE3} ] && awk -vp=%1 '$1 == p{m=$1; gsub(/::/, "-", m); printf("perl-%s = %s\\n", m, $3)}END{if (!m) printf("# Error looking up [%s]\\n", p)}' %{SOURCE3} || echo ERROR) %define ver 5.18.0 -%define rel 6 +%define rel 7 Summary: Practical Extraction and Report Language (Perl) Summary(cs.UTF-8): Programovací jazyk Perl Summary(da.UTF-8): Programmeringssproget Perl @@ -86,6 +86,7 @@ Patch6: %{name}-write-permissions.patch Patch7: %{name}-t-syslog.patch Patch8: %{name}-fix-pointer-arithmetic.patch Patch9: %{name}-switch.patch +Patch10: %{name}-invalid-void-use.patch URL: http://dev.perl.org/perl5/ %ifarch ppc # gcc 3.3.x miscompiles pp_hot.c @@ -692,6 +693,7 @@ z biblioteki GNU gdbm. %patch7 -p1 %patch8 -p1 %patch9 -p1 +%patch10 -p1 cat > runperl <<'EOF' #!/bin/sh -- 2.44.0