From ab0d9ab86014cde8dfafbad147f1d4d38144ab24 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 8 May 2014 17:17:02 -0400
Subject: [PATCH] Printfed as %s, cast appropriately.

Fix for Coverity perl5 CID 29050.
---
 ext/NDBM_File/NDBM_File.xs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ext/NDBM_File/NDBM_File.xs b/ext/NDBM_File/NDBM_File.xs
index 52e60fc..af25c6c 100644
--- a/ext/NDBM_File/NDBM_File.xs
+++ b/ext/NDBM_File/NDBM_File.xs
@@ -109,7 +109,7 @@ ndbm_STORE(db, key, value, flags = DBM_REPLACE)
 	    if (RETVAL < 0 && errno == EPERM)
 		croak("No write permission to ndbm file");
 	    croak("ndbm store returned %d, errno %d, key \"%s\"",
-			RETVAL,errno,key.dptr);
+                  RETVAL, errno, (const char*)key.dptr);
 	    dbm_clearerr(db->dbp);
 	}
 
-- 
1.9.2