diff options
| author | David Spencer <baildon.research@googlemail.com> | 2015-07-23 18:37:19 +0100 |
|---|---|---|
| committer | Willy Sudiarto Raharjo <willysr@slackbuilds.org> | 2016-01-17 09:40:16 +0700 |
| commit | 2f34ffad4bf8f309fcadbce7302691528826f080 (patch) | |
| tree | b6fbc9dc773254b6e783c7babb8070c04f785001 /development/ming/0001-GvCV-isn-t-an-lvalue-since-Perl-5.13.10.patch | |
| parent | 623c66c7c27a6b7e254e4a975b4bec5dc5d01a6d (diff) | |
| download | slackbuilds-2f34ffad4bf8f309fcadbce7302691528826f080.tar.gz | |
development/ming: Updated for version 0.4.7.
Fixes build failure with giflib-5.1 on -current.
Signed-off-by: David Spencer <baildon.research@googlemail.com>
Signed-off-by: Willy Sudiarto Raharjo <willysr@slackbuilds.org>
Diffstat (limited to 'development/ming/0001-GvCV-isn-t-an-lvalue-since-Perl-5.13.10.patch')
| -rw-r--r-- | development/ming/0001-GvCV-isn-t-an-lvalue-since-Perl-5.13.10.patch | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/development/ming/0001-GvCV-isn-t-an-lvalue-since-Perl-5.13.10.patch b/development/ming/0001-GvCV-isn-t-an-lvalue-since-Perl-5.13.10.patch deleted file mode 100644 index e34eb0f6f5..0000000000 --- a/development/ming/0001-GvCV-isn-t-an-lvalue-since-Perl-5.13.10.patch +++ /dev/null @@ -1,43 +0,0 @@ -From a0ea1cc47330a3ab316713d720892b6272401890 Mon Sep 17 00:00:00 2001 -From: Niko Tyni <ntyni@debian.org> -Date: Sun, 10 Jul 2011 21:46:09 +0300 -Subject: [PATCH] GvCV() isn't an lvalue since Perl 5.13.10 - -GvCV() can't be assigned to anymore with recent perls, so use the new -GvCV_set() macro when available or implement it the old way if it isn't. ---- - perl_ext/Exports.c | 2 +- - perl_ext/perl_swf.h | 4 ++++ - 2 files changed, 5 insertions(+), 1 deletions(-) - -diff --git a/perl_ext/Exports.c b/perl_ext/Exports.c -index 65f8912..5529728 100644 ---- a/perl_ext/Exports.c -+++ b/perl_ext/Exports.c -@@ -190,7 +190,7 @@ void export_cv(SV *class, SV *caller, char *sub) - SvPVX(caller), sub, SvPVX(class), sub); - #endif - gv = gv_fetchpv(form("%s::%s",SvPVX( caller), sub), TRUE, SVt_PVCV); -- GvCV(gv) = perl_get_cv(form("%s::%s", SvPVX(class), sub), TRUE); -+ GvCV_set(gv, perl_get_cv(form("%s::%s", SvPVX(class), sub), TRUE)); - GvIMPORTED_CV_on(gv); - GvMULTI_on(gv); - } -diff --git a/perl_ext/perl_swf.h b/perl_ext/perl_swf.h -index b960229..1a3656e 100644 ---- a/perl_ext/perl_swf.h -+++ b/perl_ext/perl_swf.h -@@ -58,6 +58,10 @@ typedef SWFFontCollection SWF__FontCollection; - #define aTHXo_ - #endif - -+#ifndef GvCV_set -+# define GvCV_set(G, C) (GvCV(G) = (C)) -+#endif -+ - #ifndef S_DEBUG - #define swf_debug 0 /* Should we get this from, say, $SWF::debug? */ - #define S_DEBUG(level,code) if (swf_debug >= level) { code; } --- -1.7.5.4 - |