This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
printf %s, cast appropriately.
[perl5.git] / ext / NDBM_File / NDBM_File.xs
index 52e60fc..e3adf3f 100644 (file)
@@ -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);
        }