r61587 - in /branches/upstream/libdbd-mysql-perl/current: ChangeLog META.yml dbdimp.c lib/DBD/mysql.pm

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Sun Aug 15 06:31:56 UTC 2010


Author: ansgar-guest
Date: Sun Aug 15 06:31:26 2010
New Revision: 61587

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=61587
Log:
[svn-upgrade] new version libdbd-mysql-perl (4.017)

Modified:
    branches/upstream/libdbd-mysql-perl/current/ChangeLog
    branches/upstream/libdbd-mysql-perl/current/META.yml
    branches/upstream/libdbd-mysql-perl/current/dbdimp.c
    branches/upstream/libdbd-mysql-perl/current/lib/DBD/mysql.pm

Modified: branches/upstream/libdbd-mysql-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbd-mysql-perl/current/ChangeLog?rev=61587&op=diff
==============================================================================
--- branches/upstream/libdbd-mysql-perl/current/ChangeLog (original)
+++ branches/upstream/libdbd-mysql-perl/current/ChangeLog Sun Aug 15 06:31:26 2010
@@ -1,3 +1,7 @@
+2010-08-11 Patrick Galbraith <patg at patg.net> (4.017)
+* BUG #60085, Andreas Koenig's patch for DBI changes
+* Updated documents
+
 2010-07-10 Patrick Galbraith <patg at patg.net> (4.016)
 * Disabled mysql_bind_type_guessing due to one performance issue 
   querying on a indexed character column unquoted will mean the index 

Modified: branches/upstream/libdbd-mysql-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbd-mysql-perl/current/META.yml?rev=61587&op=diff
==============================================================================
--- branches/upstream/libdbd-mysql-perl/current/META.yml (original)
+++ branches/upstream/libdbd-mysql-perl/current/META.yml Sun Aug 15 06:31:26 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               DBD-mysql
-version:            4.016
+version:            4.017
 abstract:           A MySQL driver for the Perl5 Database Interface (DBI)
 author:
     - Rudy Lippan <rlippan at remotelinux.com>

Modified: branches/upstream/libdbd-mysql-perl/current/dbdimp.c
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbd-mysql-perl/current/dbdimp.c?rev=61587&op=diff
==============================================================================
--- branches/upstream/libdbd-mysql-perl/current/dbdimp.c (original)
+++ branches/upstream/libdbd-mysql-perl/current/dbdimp.c Sun Aug 15 06:31:26 2010
@@ -1649,7 +1649,7 @@
     {
       SV* sv = DBIc_IMP_DATA(imp_dbh);
 
-      DBIc_set(imp_dbh, DBIcf_AutoCommit, &sv_yes);
+      DBIc_set(imp_dbh, DBIcf_AutoCommit, &PL_sv_yes);
       if (sv  &&  SvROK(sv))
       {
         HV* hv = (HV*) SvRV(sv);
@@ -2197,7 +2197,7 @@
 #endif
 
   /* The disconnect_all concept is flawed and needs more work */
-  if (!dirty && !SvTRUE(perl_get_sv("DBI::PERL_ENDING",0))) {
+  if (!PL_dirty && !SvTRUE(perl_get_sv("DBI::PERL_ENDING",0))) {
     sv_setiv(DBIc_ERR(imp_drh), (IV)1);
     sv_setpv(DBIc_ERRSTR(imp_drh),
              (char*)"disconnect_all not implemented");
@@ -2205,7 +2205,7 @@
       DBIc_ERR(imp_drh), DBIc_ERRSTR(imp_drh)); */
     return FALSE;
   }
-  perl_destruct_level = 0;
+  PL_perl_destruct_level = 0;
   return FALSE;
 }
 
@@ -2411,7 +2411,7 @@
         if (imp_dbh->has_transactions)
           return sv_2mortal(boolSV(DBIc_has(imp_dbh,DBIcf_AutoCommit)));
         /* Default */
-        return &sv_yes;
+        return &PL_sv_yes;
       }
       break;
   }
@@ -2482,7 +2482,7 @@
     {
       const char* hostinfo = mysql_get_host_info(imp_dbh->pmysql);
       result= hostinfo ?
-        sv_2mortal(newSVpv(hostinfo, strlen(hostinfo))) : &sv_undef;
+        sv_2mortal(newSVpv(hostinfo, strlen(hostinfo))) : &PL_sv_undef;
     }
     break;
 
@@ -2490,7 +2490,7 @@
     if (strEQ(key, "info"))
     {
       const char* info = mysql_info(imp_dbh->pmysql);
-      result= info ? sv_2mortal(newSVpv(info, strlen(info))) : &sv_undef;
+      result= info ? sv_2mortal(newSVpv(info, strlen(info))) : &PL_sv_undef;
     }
     else if (kl == 8  &&  strEQ(key, "insertid"))
       /* We cannot return an IV, because the insertid is a long. */
@@ -2512,7 +2512,7 @@
     {
       const char* serverinfo = mysql_get_server_info(imp_dbh->pmysql);
       result= serverinfo ?
-        sv_2mortal(newSVpv(serverinfo, strlen(serverinfo))) : &sv_undef;
+        sv_2mortal(newSVpv(serverinfo, strlen(serverinfo))) : &PL_sv_undef;
     }
     else if (strEQ(key, "sock"))
       result= sv_2mortal(newSViv((IV) imp_dbh->pmysql));
@@ -2522,14 +2522,14 @@
     {
       const char* stats = mysql_stat(imp_dbh->pmysql);
       result= stats ?
-        sv_2mortal(newSVpv(stats, strlen(stats))) : &sv_undef;
+        sv_2mortal(newSVpv(stats, strlen(stats))) : &PL_sv_undef;
     }
     else if (strEQ(key, "stats"))
     {
       /* Obsolete, as of 2.09 */
       const char* stats = mysql_stat(imp_dbh->pmysql);
       result= stats ?
-        sv_2mortal(newSVpv(stats, strlen(stats))) : &sv_undef;
+        sv_2mortal(newSVpv(stats, strlen(stats))) : &PL_sv_undef;
     }
     else if (kl == 14 && strEQ(key,"server_prepare"))
         result= sv_2mortal(newSViv((IV) imp_dbh->use_server_side_prepare));
@@ -4225,7 +4225,7 @@
         break;
 
       default:
-        sv= &sv_undef;
+        sv= &PL_sv_undef;
         break;
       }
       av_push(av, sv);
@@ -4239,7 +4239,7 @@
   }
 
   if (av == Nullav)
-    return &sv_undef;
+    return &PL_sv_undef;
 
   return sv_2mortal(newRV_inc((SV*)av));
 }
@@ -4726,7 +4726,7 @@
 	sv= newSVpv((char*) (c), 0);           \
 	SvREADONLY_on(sv);                      \
     } else {                                    \
-        sv= &sv_undef;                         \
+        sv= &PL_sv_undef;                         \
     }                                           \
     av_push(row, sv);
 
@@ -4803,7 +4803,7 @@
       IV_PUSH(t->num_prec_radix);
     }
     else
-      av_push(row, &sv_undef);
+      av_push(row, &PL_sv_undef);
 
     IV_PUSH(t->sql_datatype); /* SQL_DATATYPE*/
     IV_PUSH(t->sql_datetime_sub); /* SQL_DATETIME_SUB*/

Modified: branches/upstream/libdbd-mysql-perl/current/lib/DBD/mysql.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbd-mysql-perl/current/lib/DBD/mysql.pm?rev=61587&op=diff
==============================================================================
--- branches/upstream/libdbd-mysql-perl/current/lib/DBD/mysql.pm (original)
+++ branches/upstream/libdbd-mysql-perl/current/lib/DBD/mysql.pm Sun Aug 15 06:31:26 2010
@@ -9,7 +9,7 @@
 use Carp ();
 @ISA = qw(DynaLoader);
 
-$VERSION = '4.016';
+$VERSION = '4.017';
 
 bootstrap DBD::mysql $VERSION;
 
@@ -1908,24 +1908,50 @@
 
 =head1 AUTHORS
 
-The current version of B<DBD::mysql> is almost completely written
-by Jochen Wiedmann, and is now being maintained by
-Patrick Galbraith (I<patg at mysql.com>). 
-The first version's author was Alligator Descartes, who was aided
-and abetted by Gary Shea, Andreas König and Tim Bunce amongst others.
-
-The B<Mysql> module was originally written by Andreas König
-<koenig at kulturbox.de>. The current version, mainly an emulation
-layer, is from Jochen Wiedmann.
+Originally, there was a non-DBI driver, Mysql, which was much like 
+PHP drivers such as mysql and mysqli. The B<Mysql> module was 
+originally written by Andreas König <koenig at kulturbox.de> who still, to this
+day, contributes patches to DBD::mysql. An emulated version of Mysql was
+provided to DBD::mysql from Jochen Wiedmann, but eventually deprecated as it
+was another bundle of code to maintain.
+
+The first incarnation of DBD::mysql was developed by Alligator Descartes,
+who was also aided and abetted by Gary Shea, Andreas König and 
+Tim Bunce.
+
+The current incarnation of B<DBD::mysql> was written by Jochen Wiedmann,
+then numerous changes and bug-fixes were added by Rudy Lippan. Next, 
+prepared statement support was added by Patrick Galbraith and 
+Alexy Stroganov (who also soley added embedded server 
+support).
+
+For the past seven years DBD::mysql has been maintained by
+Patrick Galbraith (I<patg at patg.net>) along with the entire community 
+of Perl developers who keep sending patches and making Patrick's job
+easier. 
+
+
+=head1 CONTRIBUTIONS
+
+Anyone who desires to contribute to this project is encouraged to do so.
+Currently, the sourcecode for this project can be found at Github: 
+
+git://github.com/CaptTofu/DBD-mysql.git
+
+Either fork this repository and produce a branch with your changeset that 
+the maintainer can merge to his tree, or create a diff with git. The maintainer
+is more than glad to take contributions from the community as
+many features and fixes from DBD::mysql have come from the community.
 
 
 =head1 COPYRIGHT
 
 
 This module is 
-Large Portions Copyright (c) 2004-2006 MySQL Patrick Galbraith, Alexey Stroganov,
-Large Portions Copyright (c) 2003-2005 Rudolf Lippan; Large Portions 
-Copyright (c) 1997-2003 Jochen Wiedmann, with code portions 
+Large Portions Copyright (c) 2004-2010 Patrick Galbraith
+Large Portions Copyright (c) 2004-2006 Alexey Stroganov
+Large Portions Copyright (c) 2003-2005 Rudolf Lippan
+Large Portions Copyright (c) 1997-2003 Jochen Wiedmann, with code portions 
 Copyright (c)1994-1997 their original authors This module is
 released under the same license as Perl itself. See the Perl README
 for details.
@@ -1958,6 +1984,10 @@
 
 http://dbi.perl.org/
 
+And source:
+
+git://github.com/CaptTofu/DBD-mysql.git
+
 =head1 ADDITIONAL DBI INFORMATION
 
 Additional information on the DBI project can be found on the World




More information about the Pkg-perl-cvs-commits mailing list