.gear-rules | 2 + .../6264ebcd5d61f65e30d7f88e87c76523ace723bc | 13 ++++ .../7aad23adb2af83baaa9dcf94a55c08f00da380a8 | 13 ++++ .gear-tags/list | 2 + Makefile.PL | 3 +- lib/Class/DBI.pm | 12 +++- perl-Class-DBI.spec | 63 ++++++++++++++++++++ 7 files changed, 105 insertions(+), 3 deletions(-) diff --git a/.gear-rules b/.gear-rules new file mode 100644 index 0000000..8a59e5d --- /dev/null +++ b/.gear-rules @@ -0,0 +1,2 @@ +tar: @version@:. name=Class-DBI-v@version@ +diff: @version@:. . name=perl-Class-DBI-@version@-@release@.patch diff --git a/.gear-tags/6264ebcd5d61f65e30d7f88e87c76523ace723bc b/.gear-tags/6264ebcd5d61f65e30d7f88e87c76523ace723bc new file mode 100644 index 0000000..0d45777 --- /dev/null +++ b/.gear-tags/6264ebcd5d61f65e30d7f88e87c76523ace723bc @@ -0,0 +1,13 @@ +object 7df7028b1ff1980c37ffb3dd61c4735afb6f1a0c +type commit +tag 3.0.17 +tagger Alexey Tourbin 1204694586 +0300 + +3.0.17 +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.8 (GNU/Linux) + +iEYEABECAAYFAkfOLjoACgkQfBKgtDjnu0afbwCgh/ZJqLOl0Eu3HDIGXBS6GJM7 +lKUAn3pUtv2cWxag9HtmrRSpWmd+GY3D +=Snnt +-----END PGP SIGNATURE----- diff --git a/.gear-tags/7aad23adb2af83baaa9dcf94a55c08f00da380a8 b/.gear-tags/7aad23adb2af83baaa9dcf94a55c08f00da380a8 new file mode 100644 index 0000000..47c216b --- /dev/null +++ b/.gear-tags/7aad23adb2af83baaa9dcf94a55c08f00da380a8 @@ -0,0 +1,13 @@ +object 35db2fc2be4681e5aa128aaaf4b2793c58d49dd7 +type commit +tag 3.0.16 +tagger Alexey Tourbin 1186347080 +0400 + +3.0.16 +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.7 (GNU/Linux) + +iD8DBQBGtjhIfBKgtDjnu0YRAqjoAJwLtX9n07mbo+w0jMthxj9BdR97BgCeJd59 +U9wOI2oWygERwUEMMbz3P2w= +=Se5W +-----END PGP SIGNATURE----- diff --git a/.gear-tags/list b/.gear-tags/list new file mode 100644 index 0000000..a9dbb67 --- /dev/null +++ b/.gear-tags/list @@ -0,0 +1,2 @@ +7aad23adb2af83baaa9dcf94a55c08f00da380a8 3.0.16 +6264ebcd5d61f65e30d7f88e87c76523ace723bc 3.0.17 diff --git a/Makefile.PL b/Makefile.PL index ee37642..504eac6 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -9,7 +9,8 @@ $LAST_API_CHANGE = 0.93; require 5.006; -eval "require $PACKAGE"; +#eval "require $PACKAGE"; +eval "die"; # not found -- do not check unless ($@) { # Make sure we did find the module. print <<"CHANGE_WARN" if ${$PACKAGE.'::VERSION'} < $LAST_API_CHANGE; diff --git a/lib/Class/DBI.pm b/lib/Class/DBI.pm index 65d2f2e..70ca401 100644 --- a/lib/Class/DBI.pm +++ b/lib/Class/DBI.pm @@ -626,6 +626,7 @@ sub _insert_row { $data->{ $primary_columns[0] } = $self->_auto_increment_value if @primary_columns == 1 && !defined $data->{ $primary_columns[0] }; + $sth->finish; }; if ($@) { my $class = ref $self; @@ -734,7 +735,11 @@ sub delete { $self->remove_from_object_index; $self->call_trigger('before_delete'); - eval { $self->sql_DeleteMe->execute($self->id) }; + eval { + my $sth = $self->sql_DeleteMe; + $sth->execute($self->id); + $sth->finish; + }; if ($@) { return $self->_db_error( msg => "Can't delete $self: $@", @@ -778,7 +783,10 @@ sub update { my @primary_columns = $self->primary_columns; my $sth = $self->sql_update($self->_update_line); $class->_bind_param($sth, \@changed_cols); - my $rows = eval { $sth->execute($self->_update_vals, $self->id); }; + my $rows = eval { + $sth->execute($self->_update_vals, $self->id); + $sth->finish; + }; if ($@) { return $self->_db_error( msg => "Can't update $self: $@", diff --git a/perl-Class-DBI.spec b/perl-Class-DBI.spec new file mode 100644 index 0000000..ff49d79 --- /dev/null +++ b/perl-Class-DBI.spec @@ -0,0 +1,63 @@ +%define dist Class-DBI +Name: perl-%dist +Version: 3.0.17 +Release: alt1 + +Summary: Simple Database Abstraction +License: GPL or Artistic +Group: Development/Perl + +URL: %CPAN %dist +Source: %dist-v%version.tar +Patch: %name-%version-%release.patch + +BuildArch: noarch + +# Automatically added by buildreq on Wed Mar 05 2008 +BuildRequires: perl-Class-Accessor perl-Class-Trigger perl-Clone perl-DBD-Pg perl-DBD-SQLite perl-DBD-mysql perl-Ima-DBI perl-Storable perl-Test-Pod perl-UNIVERSAL-moniker + +%description +Class::DBI provides a convenient abstraction layer to a database. +It not only provides a simple database to object mapping layer, but can +be used to implement several higher order database functions (triggers, +referential integrity, cascading delete etc.), at the application level, +rather than at the database. + +%prep +%setup -q -n %dist-v%version +%patch -p1 + +%build +%perl_vendor_build + +%install +%perl_vendor_install + +%files +%doc Changes README +%dir %perl_vendor_privlib/Class +%perl_vendor_privlib/Class/DBI* + +%changelog +* Wed Mar 05 2008 Alexey Tourbin 3.0.17-alt1 +- v3.0.16 -> v3.0.17 +- back from v-string versioning to version.pm object +- reverted part of $sth->finish change + +* Mon Aug 06 2007 Alexey Tourbin 3.0.16-alt1 +- v3.0.15 -> v3.0.16 + +* Sun Oct 22 2006 Alexey Tourbin 3.0.15-alt1 +- v3.0.14 -> v3.0.15 +- imported sources into git and built with gear +- placed explicit $sth->finish calls to workaround bugs in DBD::SQLite 1.13 + +* Mon May 22 2006 Alexey Tourbin 3.0.14-alt1 +- v3.0.8 -> v3.0.14 + +* Sat Sep 24 2005 Alexey Tourbin 3.0.8-alt1 +- 0.96 -> v3.0.8 +- use v-string (v3.0.8) instead of version object for now + +* Thu Jul 14 2005 Alexey Tourbin 0.96-alt1 +- initial revision