From fd6c9caa0ca97d9d7dedea1814784a2cc5f55afd Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Tue, 21 Jul 2009 17:49:53 +0000
Subject: [PATCH] DBD-SQLite: perl 5.10 prefers
 XPUSHs(sv_2mortal(&PL_sv_undef))

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

diff --git a/dbdimp.c b/dbdimp.c
index aff3229..a48feed 100644
--- a/dbdimp.c
+++ b/dbdimp.c
@@ -1524,25 +1524,25 @@ sqlite_db_authorizer_dispatcher (
 
     /* these ifs are ugly but without them, perl 5.8 segfaults */
     if (details_1 == NULL) {
-      XPUSHs( NULL );
+      XPUSHs( sv_2mortal( &PL_sv_undef ) );
     }
     else {
       XPUSHs( sv_2mortal ( newSVpv ( details_1, 0 ) ) );
     }
     if (details_2 == NULL) {
-      XPUSHs( NULL );
+      XPUSHs( sv_2mortal( &PL_sv_undef ) );
     }
     else {
       XPUSHs( sv_2mortal ( newSVpv ( details_2, 0 ) ) );
     }
     if (details_3 == NULL) {
-      XPUSHs( NULL );
+      XPUSHs( sv_2mortal( &PL_sv_undef ) );
     }
     else {
       XPUSHs( sv_2mortal ( newSVpv ( details_3, 0 ) ) );
     }
     if (details_4 == NULL) {
-      XPUSHs( NULL );
+      XPUSHs( sv_2mortal( &PL_sv_undef ) );
     }
     else {
       XPUSHs( sv_2mortal ( newSVpv ( details_4, 0 ) ) );