Patch for $dbh->primary_key support

--------------020505070906080706090805
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit

G'day all,
This patch gives basic support to the $dbh->primary_key method. It does
not (cannot?) guarantee to supply the primary keys in the correct order
which is how DBI specifies it should behave. Hopefully this might be
useful, or somebody could point me in a better direction for this
functionality.
Uru
-Dave

--------------020505070906080706090805
Content-Type: text/plain;
name="mysql_primary_key.patch"
Content-Transfer-Encoding: base64
Content-Disposition: inline;
filename="mysql_primary_key.patch"

ZGlmZiAtcnUgREJELW15c3FsLTIuOTAwMy9saWIvREJEL215c3FsLnBtIG5l dy9saWIvREJE
L215c3FsLnBtCi0tLSBEQkQtbXlzcWwtMi45MDAzL2xpYi9EQkQvbXlzcWwu cG0JTW9uIE9j
dCAyNyAxNDoyNjowOCAyMDAzCisrKyBuZXcvbGliL0RCRC9teXNxbC5wbQlT YXQgRmViIDI4
IDA4OjUzOjMyIDIwMDQKQEAgLTI4Miw3ICsyODIsMTkgQEAKICAgcmV0dXJu IG1hcCB7ICRf
ID1+IHMvLipcLi8vOyAkXyB9ICRkYmgtPnRhYmxlcygpOwogfQogCi0KK3N1 YiBwcmltYXJ5
X2tleSB7CisgICAgbXkgKCRkYmgsICRjYXRhbG9nLCAkc2NoZW1hLCAkdGFi bGUpID0gQF87
CisgICAgbXkgKEBrZXlzKTsKKyAgICBteSAkdGFibGVfaWQgPSAkZGJoLT5x dW90ZV9pZGVu
dGlmaWVyKCRjYXRhbG9nLCAkc2NoZW1hLCAkdGFibGUpOworICAgIGxvY2Fs ICRkYmgtPntG
ZXRjaEhhc2hLZXlOYW1lfSA9ICdOQU1FX2xjJzsKKyAgICBteSAkZGVzY19z dGggPSAkZGJo
LT5wcmVwYXJlKCJERVNDUklCRSAkdGFibGVfaWQiKTsKKyAgICBteSAkZGVz YyA9ICRkYmgt
PnNlbGVjdGFsbF9hcnJheXJlZigkZGVzY19zdGgsIHsgQ29sdW1ucz0+e30g fSk7CisgICAg
Zm9yZWFjaCBteSAkcm93IChAJGRlc2MpIHsKKyAgICAgICAgIHB1c2ggQGtl eXMsICRyb3ct
PntmaWVsZH0gaWYgKCRyb3ctPntrZXl9IGVxICdQUkknKTsgCisgICAgfQor ICAgIHJldHVy
biAoQGtleXMpOworfQorICAgCiBzdWIgY29sdW1uX2luZm8gewogICAgIG15 ICgkZGJoLCAk
Y2F0YWxvZywgJHNjaGVtYSwgJHRhYmxlLCAkY29sdW1uKSA9IEBfOwogICAg IHJldHVybiAk
ZGJoLT5zZXRfZXJyKDEsICJjb2x1bW5faW5mbyBkb2Vzbid0IHN1cHBvcnQg dGFibGUgd2ls
ZGNhcmQiKQo=

--------------020505070906080706090805
Content-Type: text/plain; charset=us-ascii

--
MySQL Perl Mailing List
For list archives: http://lists.mysql.com/perl
To unsubscribe: http://lists.mysql.com/perl?unsub=gcdmp-msql-mysql-modules@m .gmane.org
--------------020505070906080706090805--