Bug#305468: libdbd-pg-perl leaks memory when using execute()

[Kevin Brown]

Okay, I've tracked this one down.  The offending line is 1547, which
reads:

    currph->quoted = currph->bind_type->quote(currph->value, currph->valuelen, 
&currph->quotedlen);

This is never freed prior to re-assignment.  The fix is to add:

    if (currph->quoted) Safefree(currph->quoted);

right before it.


Patch attached.


-- 
Kevin Brown                                           [EMAIL PROTECTED]

*** libdbd-pg-perl-1.41/dbdimp.c        Wed Apr  6 13:40:20 2005
--- libdbd-pg-perl-1.41-1.kev/dbdimp.c  Fri Apr 22 01:56:44 2005
***************
*** 1544,1549 ****
--- 1544,1550 ----
                                currph->quotedlen = 4;
                        }
                        else {
+                               if (currph->quoted) Safefree(currph->quoted);
                                currph->quoted = 
currph->bind_type->quote(currph->value, currph->valuelen, &currph->quotedlen);
                        }
                }