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 339d0c61e22b7..d9af44cf6a57d 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 d6bc3e4a64525..a6c1c3999e217 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 0000000000000..d205b43f33ece
--- /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]);
+   }