r31185 - in /trunk/librose-db-perl: ./ debian/ lib/Rose/ lib/Rose/DB/ lib/Rose/DB/Cache/ lib/Rose/DB/Registry/ t/
rmayorga at users.alioth.debian.org
rmayorga at users.alioth.debian.org
Sat Feb 28 01:39:56 UTC 2009
Author: rmayorga
Date: Sat Feb 28 01:39:53 2009
New Revision: 31185
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31185
Log:
* New upstream release
* debian/control: update my email address
* debian/rules: send a "\n" to make test call, this will avoid
the 60 seconds wait for tests.
* debian/copyright:
+ update upstream copyright years.
+ split individual contributors for debian/* based on debian/changelog
Modified:
trunk/librose-db-perl/Changes
trunk/librose-db-perl/META.yml
trunk/librose-db-perl/debian/changelog
trunk/librose-db-perl/debian/control
trunk/librose-db-perl/debian/copyright
trunk/librose-db-perl/debian/rules
trunk/librose-db-perl/lib/Rose/DB.pm
trunk/librose-db-perl/lib/Rose/DB/Cache.pm
trunk/librose-db-perl/lib/Rose/DB/Cache/Entry.pm
trunk/librose-db-perl/lib/Rose/DB/Constants.pm
trunk/librose-db-perl/lib/Rose/DB/Generic.pm
trunk/librose-db-perl/lib/Rose/DB/Informix.pm
trunk/librose-db-perl/lib/Rose/DB/MySQL.pm
trunk/librose-db-perl/lib/Rose/DB/Pg.pm
trunk/librose-db-perl/lib/Rose/DB/Registry.pm
trunk/librose-db-perl/lib/Rose/DB/Registry/Entry.pm
trunk/librose-db-perl/lib/Rose/DB/SQLite.pm
trunk/librose-db-perl/t/pg.t
trunk/librose-db-perl/t/subclass-pg.t
Modified: trunk/librose-db-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/Changes?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/Changes (original)
+++ trunk/librose-db-perl/Changes Sat Feb 28 01:39:53 2009
@@ -1,3 +1,7 @@
+0.750 (02.26.2009) - Peter Karman <perl at peknet.com>
+
+ * Added pg_enable_utf8 attribute.
+
0.749 (12.12.2008) - John Siracusa <siracusa at gmail.com>
* Added support for many more registry entry attributes.
Modified: trunk/librose-db-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/META.yml?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/META.yml (original)
+++ trunk/librose-db-perl/META.yml Sat Feb 28 01:39:53 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Rose-DB
-version: 0.749
+version: 0.750
abstract: ~
author: []
license: perl
Modified: trunk/librose-db-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/debian/changelog?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/debian/changelog (original)
+++ trunk/librose-db-perl/debian/changelog Sat Feb 28 01:39:53 2009
@@ -1,3 +1,15 @@
+librose-db-perl (0.750-1) unstable; urgency=low
+
+ * New upstream release
+ * debian/control: update my email address
+ * debian/rules: send a "\n" to make test call, this will avoid
+ the 60 seconds wait for tests.
+ * debian/copyright:
+ + update upstream copyright years.
+ + split individual contributors for debian/* based on debian/changelog
+
+ -- Rene Mayorga <rmayorga at debian.org> Fri, 27 Feb 2009 19:22:46 -0600
+
librose-db-perl (0.749-1) unstable; urgency=low
* New upstream release.
Modified: trunk/librose-db-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/debian/control?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/debian/control (original)
+++ trunk/librose-db-perl/debian/control Sat Feb 28 01:39:53 2009
@@ -8,14 +8,13 @@
librose-datetime-perl, libclone-pp-perl, libtime-clock-perl, libtest-pod-perl,
libdbd-sqlite3-perl, librose-object-perl (>= 0.854)
Uploaders: Krzysztof Krzyżaniak (eloy) <eloy at debian.org>,
- Rene Mayorga <rmayorga at debian.org.sv>, Brian Cassidy <brian.cassidy at gmail.com>,
+ Rene Mayorga <rmayorga at debian.org>, Brian Cassidy <brian.cassidy at gmail.com>,
gregor herrmann <gregoa at debian.org>
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Homepage: http://search.cpan.org/dist/Rose::DB/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/librose-db-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/librose-db-perl/
Standards-Version: 3.8.0
-
Package: librose-db-perl
Architecture: all
Modified: trunk/librose-db-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/debian/copyright?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/debian/copyright (original)
+++ trunk/librose-db-perl/debian/copyright Sat Feb 28 01:39:53 2009
@@ -5,12 +5,15 @@
Upstream-Name: Rose-DB
Files: *
-Copyright: 2007-2008 John C. Siracusa <siracusa at mindspring.com>
+Copyright: 2007-2009 John C. Siracusa <siracusa at mindspring.com>
License-Alias: Perl
License: Artistic | GPL-1+
Files: debian/*
-Copyright: 2007-2008, various members of the Debian Perl Group, cf.
+Copyright: © 2007-2008 Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
+ © 2008-2009 Rene Mayorga <rmayorga at debian.org>
+ © 2008 gregor herrmann <gregoa at debian.org>
+ © 2008 Brian Cassidy <brian.cassidy at gmail.com>
debian/changelog
License: Artistic | GPL-1+
Modified: trunk/librose-db-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/debian/rules?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/debian/rules (original)
+++ trunk/librose-db-perl/debian/rules Sat Feb 28 01:39:53 2009
@@ -2,7 +2,9 @@
build: build-stamp
build-stamp:
- dh build
+ dh build --before test
+ echo "\n" | $(MAKE) test
+ dh build --after test
touch $@
clean:
Modified: trunk/librose-db-perl/lib/Rose/DB.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/lib/Rose/DB.pm?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/lib/Rose/DB.pm (original)
+++ trunk/librose-db-perl/lib/Rose/DB.pm Sat Feb 28 01:39:53 2009
@@ -20,7 +20,7 @@
our $Error;
-our $VERSION = '0.749';
+our $VERSION = '0.750';
our $Debug = 0;
@@ -3454,6 +3454,6 @@
=head1 LICENSE
-Copyright (c) 2008 by John C. Siracusa. All rights reserved. This program is
+Copyright (c) 2009 by John C. Siracusa. All rights reserved. This program is
free software; you can redistribute it and/or modify it under the same terms
as Perl itself.
Modified: trunk/librose-db-perl/lib/Rose/DB/Cache.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/lib/Rose/DB/Cache.pm?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/lib/Rose/DB/Cache.pm (original)
+++ trunk/librose-db-perl/lib/Rose/DB/Cache.pm Sat Feb 28 01:39:53 2009
@@ -499,6 +499,6 @@
=head1 LICENSE
-Copyright (c) 2008 by John C. Siracusa. All rights reserved. This program is
+Copyright (c) 2009 by John C. Siracusa. All rights reserved. This program is
free software; you can redistribute it and/or modify it under the same terms
as Perl itself.
Modified: trunk/librose-db-perl/lib/Rose/DB/Cache/Entry.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/lib/Rose/DB/Cache/Entry.pm?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/lib/Rose/DB/Cache/Entry.pm (original)
+++ trunk/librose-db-perl/lib/Rose/DB/Cache/Entry.pm Sat Feb 28 01:39:53 2009
@@ -96,6 +96,6 @@
=head1 LICENSE
-Copyright (c) 2008 by John C. Siracusa. All rights reserved. This program is
+Copyright (c) 2009 by John C. Siracusa. All rights reserved. This program is
free software; you can redistribute it and/or modify it under the same terms
as Perl itself.
Modified: trunk/librose-db-perl/lib/Rose/DB/Constants.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/lib/Rose/DB/Constants.pm?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/lib/Rose/DB/Constants.pm (original)
+++ trunk/librose-db-perl/lib/Rose/DB/Constants.pm Sat Feb 28 01:39:53 2009
@@ -41,6 +41,6 @@
=head1 LICENSE
-Copyright (c) 2008 by John C. Siracusa. All rights reserved. This program is
+Copyright (c) 2009 by John C. Siracusa. All rights reserved. This program is
free software; you can redistribute it and/or modify it under the same terms
as Perl itself.
Modified: trunk/librose-db-perl/lib/Rose/DB/Generic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/lib/Rose/DB/Generic.pm?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/lib/Rose/DB/Generic.pm (original)
+++ trunk/librose-db-perl/lib/Rose/DB/Generic.pm Sat Feb 28 01:39:53 2009
@@ -75,6 +75,6 @@
=head1 LICENSE
-Copyright (c) 2008 by John C. Siracusa. All rights reserved. This program is
+Copyright (c) 2009 by John C. Siracusa. All rights reserved. This program is
free software; you can redistribute it and/or modify it under the same terms
as Perl itself.
Modified: trunk/librose-db-perl/lib/Rose/DB/Informix.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/lib/Rose/DB/Informix.pm?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/lib/Rose/DB/Informix.pm (original)
+++ trunk/librose-db-perl/lib/Rose/DB/Informix.pm Sat Feb 28 01:39:53 2009
@@ -1072,6 +1072,6 @@
=head1 LICENSE
-Copyright (c) 2008 by John C. Siracusa. All rights reserved. This program is
+Copyright (c) 2009 by John C. Siracusa. All rights reserved. This program is
free software; you can redistribute it and/or modify it under the same terms
as Perl itself.
Modified: trunk/librose-db-perl/lib/Rose/DB/MySQL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/lib/Rose/DB/MySQL.pm?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/lib/Rose/DB/MySQL.pm (original)
+++ trunk/librose-db-perl/lib/Rose/DB/MySQL.pm Sat Feb 28 01:39:53 2009
@@ -761,6 +761,6 @@
=head1 LICENSE
-Copyright (c) 2008 by John C. Siracusa. All rights reserved. This program is
+Copyright (c) 2009 by John C. Siracusa. All rights reserved. This program is
free software; you can redistribute it and/or modify it under the same terms
as Perl itself.
Modified: trunk/librose-db-perl/lib/Rose/DB/Pg.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/lib/Rose/DB/Pg.pm?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/lib/Rose/DB/Pg.pm (original)
+++ trunk/librose-db-perl/lib/Rose/DB/Pg.pm Sat Feb 28 01:39:53 2009
@@ -55,6 +55,8 @@
sub supports_multi_column_count_distinct { 0 }
sub supports_arbitrary_defaults_on_insert { 1 }
sub supports_select_from_subselect { 1 }
+
+sub pg_enable_utf8 { shift->dbh_attribute_boolean('pg_enable_utf8', @_) }
sub supports_schema { 1 }
@@ -573,6 +575,14 @@
See the L<DateTime::TimeZone> documentation for acceptable values of TZ.
+=item B<pg_enable_utf8 [BOOL]>
+
+Get or set the L<pg_enable_utf8|DBD::Pg/pg_enable_utf8> database handle attribute. This is set directly on the L<dbh|Rose::DB/dbh>, if one exists. Otherwise, it will be set when the L<dbh|Rose::DB/dbh> is created. If no value for this attribute is defined (the default) then it will not be set when the L<dbh|Rose::DB/dbh> is created, deferring instead to whatever default value L<DBD::Pg> chooses.
+
+Returns the value of this attribute in the L<dbh|Rose::DB/dbh>, if one exists, or the value that will be set when the L<dbh|Rose::DB/dbh> is next created.
+
+See the L<DBD::Pg|DBD::Pg/pg_enable_utf8> documentation to learn more about this attribute.
+
=back
=head2 Value Parsing and Formatting
@@ -656,6 +666,6 @@
=head1 LICENSE
-Copyright (c) 2008 by John C. Siracusa. All rights reserved. This program is
+Copyright (c) 2009 by John C. Siracusa. All rights reserved. This program is
free software; you can redistribute it and/or modify it under the same terms
as Perl itself.
Modified: trunk/librose-db-perl/lib/Rose/DB/Registry.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/lib/Rose/DB/Registry.pm?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/lib/Rose/DB/Registry.pm (original)
+++ trunk/librose-db-perl/lib/Rose/DB/Registry.pm Sat Feb 28 01:39:53 2009
@@ -343,6 +343,6 @@
=head1 LICENSE
-Copyright (c) 2008 by John C. Siracusa. All rights reserved. This program is
+Copyright (c) 2009 by John C. Siracusa. All rights reserved. This program is
free software; you can redistribute it and/or modify it under the same terms
as Perl itself.
Modified: trunk/librose-db-perl/lib/Rose/DB/Registry/Entry.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/lib/Rose/DB/Registry/Entry.pm?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/lib/Rose/DB/Registry/Entry.pm (original)
+++ trunk/librose-db-perl/lib/Rose/DB/Registry/Entry.pm Sat Feb 28 01:39:53 2009
@@ -44,7 +44,8 @@
# Pg
european_dates => { type => 'boolean', method_spec => { default => 0 } },
-
+ pg_enable_utf8 => { type => 'boolean' },
+
# SQLite
auto_create => { type => 'boolean', method_spec => { default => 1 } },
@@ -520,6 +521,14 @@
This value will be passed to L<DateTime::Format::Pg> as the value of the C<european> parameter in the call to the constructor C<new()>. This L<DateTime::Format::Pg> object is used by L<Rose::DB::Pg> to parse and format date-related column values in methods like L<parse_date|Rose::DB/parse_date>, L<format_date|Rose::DB/format_date>, etc.
+=item B<pg_enable_utf8 [BOOL]>
+
+Get or set the L<pg_enable_utf8|DBD::Pg/pg_enable_utf8> database handle attribute. This is set directly on the L<dbh|Rose::DB/dbh>, if one exists. Otherwise, it will be set when the L<dbh|Rose::DB/dbh> is created. If no value for this attribute is defined (the default) then it will not be set when the L<dbh|Rose::DB/dbh> is created, deferring instead to whatever default value L<DBD::Pg> chooses.
+
+Returns the value of this attribute in the L<dbh|Rose::DB/dbh>, if one exists, or the value that will be set when the L<dbh|Rose::DB/dbh> is next created.
+
+See the L<DBD::Pg|DBD::Pg/pg_enable_utf8> documentation to learn more about this attribute.
+
=back
=head3 SQLite
@@ -542,6 +551,6 @@
=head1 LICENSE
-Copyright (c) 2008 by John C. Siracusa. All rights reserved. This program is
+Copyright (c) 2009 by John C. Siracusa. All rights reserved. This program is
free software; you can redistribute it and/or modify it under the same terms
as Perl itself.
Modified: trunk/librose-db-perl/lib/Rose/DB/SQLite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/lib/Rose/DB/SQLite.pm?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/lib/Rose/DB/SQLite.pm (original)
+++ trunk/librose-db-perl/lib/Rose/DB/SQLite.pm Sat Feb 28 01:39:53 2009
@@ -618,6 +618,6 @@
=head1 LICENSE
-Copyright (c) 2008 by John C. Siracusa. All rights reserved. This program is
+Copyright (c) 2009 by John C. Siracusa. All rights reserved. This program is
free software; you can redistribute it and/or modify it under the same terms
as Perl itself.
Modified: trunk/librose-db-perl/t/pg.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/t/pg.t?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/t/pg.t (original)
+++ trunk/librose-db-perl/t/pg.t Sat Feb 28 01:39:53 2009
@@ -15,7 +15,7 @@
}
else
{
- Test::More->import(tests => 232);
+ Test::More->import(tests => 234);
}
}
@@ -34,7 +34,7 @@
SKIP:
{
- skip("Could not connect to db - $@", 9) unless(have_db('pg'));
+ skip("Could not connect to db - $@", 11) unless(have_db('pg'));
my $dbh = $db->dbh;
@@ -50,6 +50,12 @@
{
is($db2->$field(), $db->$field(), "$field()");
}
+
+ ok(!$db->pg_enable_utf8, 'pg_enable_utf8 false');
+
+ $db->pg_enable_utf8(1);
+
+ ok($db->pg_enable_utf8 && $db->dbh->{'pg_enable_utf8'}, 'pg_enable_utf8 true');
$db->disconnect;
$db2->disconnect;
Modified: trunk/librose-db-perl/t/subclass-pg.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/t/subclass-pg.t?rev=31185&op=diff
==============================================================================
--- trunk/librose-db-perl/t/subclass-pg.t (original)
+++ trunk/librose-db-perl/t/subclass-pg.t Sat Feb 28 01:39:53 2009
@@ -15,7 +15,7 @@
}
else
{
- Test::More->import(tests => 232);
+ Test::More->import(tests => 234);
}
}
@@ -34,7 +34,7 @@
SKIP:
{
- skip("Could not connect to db - $@", 9) unless(have_db('pg'));
+ skip("Could not connect to db - $@", 11) unless(have_db('pg'));
my $dbh = $db->dbh;
@@ -50,6 +50,12 @@
{
is($db2->$field(), $db->$field(), "$field()");
}
+
+ ok(!$db->pg_enable_utf8, 'pg_enable_utf8 false');
+
+ $db->pg_enable_utf8(1);
+
+ ok($db->pg_enable_utf8 && $db->dbh->{'pg_enable_utf8'}, 'pg_enable_utf8 true');
$db->disconnect;
$db2->disconnect;
More information about the Pkg-perl-cvs-commits
mailing list