From 28ed4ffc443f9aa412ea3125926ad2f1d48eaf25 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Tue, 21 Apr 2009 15:05:23 +0000
Subject: [PATCH] DBD-SQLite: resolved #45171, maybe a perl bug resolved
 somewhere perl > 5.8.5

---
 t/09_create_function.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/09_create_function.t b/t/09_create_function.t
index c09e310..d8f7d94 100644
--- a/t/09_create_function.t
+++ b/t/09_create_function.t
@@ -45,7 +45,7 @@ sub return_null {
 
 sub my_defined {
 #        warn("defined($_[0])\n");
-        return defined $_[0];
+        return defined $_[0] ? 1 : 0;
 }
 
 sub noop {