From 1a3baef06db2730f90040d3b455ae21ff75ed43c Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Sat, 26 Feb 2022 11:05:54 +0900
Subject: [PATCH] xFunc must also be NULL to delete a function

---
 dbdimp.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/dbdimp.c b/dbdimp.c
index 3f20bca..b0ba05f 100644
--- a/dbdimp.c
+++ b/dbdimp.c
@@ -1868,8 +1868,8 @@ sqlite_db_create_function(pTHX_ SV *dbh, const char *name, int argc, SV *func, i
 
     /* warn("create_function %s with %d args\n", name, argc); */
     rc = sqlite3_create_function( imp_dbh->db, name, argc, SQLITE_UTF8|flags,
-                                  SvOK(func) ? func_sv : &PL_sv_undef,
-                                  _FUNC_DISPATCHER[imp_dbh->string_mode],
+                                  SvOK(func) ? func_sv : NULL,
+                                  SvOK(func) ? _FUNC_DISPATCHER[imp_dbh->string_mode] : NULL,
                                   NULL, NULL );
     if ( rc != SQLITE_OK ) {
         sqlite_error(dbh, rc, form("sqlite_create_function failed with error %s", sqlite3_errmsg(imp_dbh->db)));