simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 22:28:47 -04:00
Code Issues Releases Wiki Activity

DBD-SQLite: perl 5.10 prefers XPUSHs(sv_2mortal(&PL_sv_undef))

Browse source
This commit is contained in:
Kenichi Ishigaki 2009-07-21 17:49:53 +00:00
parent 4f5603f3db
commit fd6c9caa0c
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
dbdimp.c
View file

@ -1524,25 +1524,25 @@ sqlite_db_authorizer_dispatcher (
/* these ifs are ugly but without them, perl 5.8 segfaults */ /* these ifs are ugly but without them, perl 5.8 segfaults */
if (details_1 == NULL) { if (details_1 == NULL) {
XPUSHs( NULL ); XPUSHs( sv_2mortal( &PL_sv_undef ) );
} }
else { else {
XPUSHs( sv_2mortal ( newSVpv ( details_1, 0 ) ) ); XPUSHs( sv_2mortal ( newSVpv ( details_1, 0 ) ) );
} }
if (details_2 == NULL) { if (details_2 == NULL) {
XPUSHs( NULL ); XPUSHs( sv_2mortal( &PL_sv_undef ) );
} }
else { else {
XPUSHs( sv_2mortal ( newSVpv ( details_2, 0 ) ) ); XPUSHs( sv_2mortal ( newSVpv ( details_2, 0 ) ) );
} }
if (details_3 == NULL) { if (details_3 == NULL) {
XPUSHs( NULL ); XPUSHs( sv_2mortal( &PL_sv_undef ) );
} }
else { else {
XPUSHs( sv_2mortal ( newSVpv ( details_3, 0 ) ) ); XPUSHs( sv_2mortal ( newSVpv ( details_3, 0 ) ) );
} }
if (details_4 == NULL) { if (details_4 == NULL) {
XPUSHs( NULL ); XPUSHs( sv_2mortal( &PL_sv_undef ) );
} }
else { else {
XPUSHs( sv_2mortal ( newSVpv ( details_4, 0 ) ) ); XPUSHs( sv_2mortal ( newSVpv ( details_4, 0 ) ) );