From f2b6b0f0106efe89395009da132bca115984dfd7 Mon Sep 17 00:00:00 2001
From: Mikle Kolyada <zlogene@gentoo.org>
Date: Sun, 27 Sep 2015 18:39:41 +0300
Subject: [PATCH] dev-perl/DBD-mysql: Fix compilation with embedded USE flag
 wrt bug #560314

Package-Manager: portage-2.2.20.1
---
 dev-perl/DBD-mysql/DBD-mysql-4.31.0.ebuild    |  4 ++++
 dev-perl/DBD-mysql/DBD-mysql-4.32.0.ebuild    |  4 ++++
 .../DBD-mysql-print_embedded_options.patch    | 20 +++++++++++++++++++
 3 files changed, 28 insertions(+)
 create mode 100644 dev-perl/DBD-mysql/files/DBD-mysql-print_embedded_options.patch

diff --git a/dev-perl/DBD-mysql/DBD-mysql-4.31.0.ebuild b/dev-perl/DBD-mysql/DBD-mysql-4.31.0.ebuild
index 339d0c61e22b..d9af44cf6a57 100644
--- a/dev-perl/DBD-mysql/DBD-mysql-4.31.0.ebuild
+++ b/dev-perl/DBD-mysql/DBD-mysql-4.31.0.ebuild
@@ -25,6 +25,10 @@ else
 	SRC_TEST="skip"
 fi
 
+src_prepare() {
+	epatch "${FILESDIR}"/${PN}-print_embedded_options.patch
+}
+
 src_configure() {
 	if use test; then
 		myconf="${myconf} --testdb=test \
diff --git a/dev-perl/DBD-mysql/DBD-mysql-4.32.0.ebuild b/dev-perl/DBD-mysql/DBD-mysql-4.32.0.ebuild
index d6bc3e4a6452..a6c1c3999e21 100644
--- a/dev-perl/DBD-mysql/DBD-mysql-4.32.0.ebuild
+++ b/dev-perl/DBD-mysql/DBD-mysql-4.32.0.ebuild
@@ -25,6 +25,10 @@ else
 	SRC_TEST="skip"
 fi
 
+src_prepare() {
+        epatch "${FILESDIR}"/${PN}-print_embedded_options.patch
+}
+
 src_configure() {
 	if use test; then
 		myconf="${myconf} --testdb=test \
diff --git a/dev-perl/DBD-mysql/files/DBD-mysql-print_embedded_options.patch b/dev-perl/DBD-mysql/files/DBD-mysql-print_embedded_options.patch
new file mode 100644
index 000000000000..d205b43f33ec
--- /dev/null
+++ b/dev-perl/DBD-mysql/files/DBD-mysql-print_embedded_options.patch
@@ -0,0 +1,20 @@
+diff -ubBr old/dbdimp.c new/dbdimp.c
+--- old/dbdimp.c	2015-09-12 17:52:41.328543844 -0400
++++ new/dbdimp.c	2015-09-12 23:21:52.848371578 -0400
+@@ -443,14 +443,14 @@
+  Print out embbedded option settings
+ 
+ */
+-int print_embedded_options(char ** options_list, int options_count)
++int print_embedded_options(PerlIOl ** Log, char ** options_list, int options_count)
+ {
+   int i;
+ 
+   for (i=0; i<options_count; i++)
+   {
+     if (options_list[i])
+-        PerlIO_printf(DBILOGFP,
++        PerlIO_printf(Log,
+                       "Embedded server, parameter[%d]=%s\n",
+                       i, options_list[i]);
+   }
-- 
2.26.2