Author: turnstep
Date: Thu Jan 17 19:57:49 2008
New Revision: 10599

Modified:
   DBD-Pg/trunk/dbdimp.c

Log:
SvPV_const way too new to meet out Perl requirements.


Modified: DBD-Pg/trunk/dbdimp.c
==============================================================================
--- DBD-Pg/trunk/dbdimp.c       (original)
+++ DBD-Pg/trunk/dbdimp.c       Thu Jan 17 19:57:49 2008
@@ -3051,7 +3051,7 @@
                                   sv_copypv(currph->inout, AvARRAY(av)[i]);
                                */
                                STRLEN len;
-                               const char * const s = 
SvPV_const(AvARRAY(av)[i],len);
+                               const char * const s = SvPV(AvARRAY(av)[i],len);
                                sv_setpvn(currph->inout, s, len);
                                if (SvUTF8(AvARRAY(av)[i]))
                                        SvUTF8_on(currph->inout);

Reply via email to