[DBD::Pg] Allow WITH as a "DML" keyword, per RT 92724. Also added VALUES.

[email protected] Tue, 4 Feb 2014 16:41:50 -0500
Newsgroups perl.dbd.pg.changes
Message-ID <[email protected]>
Committed by Greg Sabino Mullane <[email protected]>

Allow WITH as a "DML" keyword, per RT 92724. Also added
VALUES.

---
 dbdimp.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/dbdimp.c b/dbdimp.c
index 84a047a..3f191fa 100644
--- a/dbdimp.c
+++ b/dbdimp.c
@@ -1580,7 +1580,9 @@ int dbd_st_prepare (SV * sth, imp_sth_t * imp_sth, char * statement, SV * attrib
 		if (0 == strcasecmp(imp_sth->firstword, "SELECT") ||
 			0 == strcasecmp(imp_sth->firstword, "INSERT") ||
 			0 == strcasecmp(imp_sth->firstword, "UPDATE") ||
-			0 == strcasecmp(imp_sth->firstword, "DELETE")
+			0 == strcasecmp(imp_sth->firstword, "DELETE") ||
+			0 == strcasecmp(imp_sth->firstword, "VALUES") ||
+			0 == strcasecmp(imp_sth->firstword, "WITH")
 			) {
 			imp_sth->is_dml = DBDPG_TRUE;
 		}
-- 
1.8.4