Author: turnstep
Date: Tue Feb 5 06:11:29 2008
New Revision: 10694
Modified:
DBD-Pg/trunk/Pg.xs
Log:
Should allow overloaded objects to be stringified per bug 32868.
Modified: DBD-Pg/trunk/Pg.xs
==============================================================================
--- DBD-Pg/trunk/Pg.xs (original)
+++ DBD-Pg/trunk/Pg.xs Tue Feb 5 06:11:29 2008
@@ -203,7 +203,7 @@
if (!SvOK(to_quote_sv)) {
RETVAL = newSVpvn("NULL", 4);
}
- else if (SvROK(to_quote_sv)) {
+ else if (SvROK(to_quote_sv) && !SvAMAGIC(to_quote_sv)) {
if (SvTYPE(SvRV(to_quote_sv)) != SVt_PVAV)
croak("Cannot quote a reference");
RETVAL = pg_stringify_array(to_quote_sv, ",",
imp_dbh->pg_server_version);
@@ -252,7 +252,7 @@
/* Need good debugging here */
quoted = type_info->quote(to_quote, len, &retlen);
RETVAL = newSVpvn(quoted, retlen);
- if (SvUTF8(to_quote_sv))
+ if (SvUTF8(to_quote_sv)) /* What about overloaded
objects? */
SvUTF8_on(RETVAL);
Safefree (quoted);
}