[Bps-public-commit] dbix-searchbuilder branch, master, updated. 1.59-10-g2c24943
Ruslan Zakirov
ruz at bestpractical.com
Fri May 20 12:52:36 EDT 2011
The branch, master has been updated
via 2c24943a851dfba439a6bad6d598af65a9173aad (commit)
via 695118fc340434b75913b3d77be2c7494e0e57e7 (commit)
from ad625236b5e3cf27dfdb39ecbd69f9bf443185ef (commit)
Summary of changes:
META.yml | 2 +-
inc/Module/Install.pm | 4 ++--
inc/Module/Install/AutoInstall.pm | 2 +-
inc/Module/Install/Base.pm | 2 +-
inc/Module/Install/Include.pm | 2 +-
inc/Module/Install/Makefile.pm | 2 +-
inc/Module/Install/Metadata.pm | 9 +++++----
t/02distinct_values.t | 31 ++++++++++++++++++++-----------
8 files changed, 32 insertions(+), 22 deletions(-)
- Log -----------------------------------------------------------------
commit 695118fc340434b75913b3d77be2c7494e0e57e7
Author: Ruslan Zakirov <ruz at bestpractical.com>
Date: Fri May 20 18:37:09 2011 +0400
NULLs sorted differently in Pg
diff --git a/t/02distinct_values.t b/t/02distinct_values.t
index 4458903..a759dd5 100644
--- a/t/02distinct_values.t
+++ b/t/02distinct_values.t
@@ -20,6 +20,7 @@ SKIP: {
unless( should_test( $d ) ) {
skip "ENV is not defined for driver '$d'", TESTS_PER_DRIVER;
}
+ diag "testing $d" if $ENV{TEST_VERBOSE};
my $handle = get_handle( $d );
connect_handle( $handle );
@@ -37,17 +38,25 @@ SKIP: {
# unlimit new object and check
$users_obj->UnLimit;
- is_deeply(
- [$users_obj->DistinctFieldValues('GroupName', Order => 'ASC')],
- [undef, qw(boss dev sales)],
- 'Correct list'
- );
- is_deeply(
- [$users_obj->DistinctFieldValues('GroupName', Order => 'DESC')],
- [reverse undef, qw(boss dev sales)],
- 'Correct list'
- );
- $users_obj->CleanSlate;
+ {
+ my @list = qw(boss dev sales);
+ if ( $d eq 'Pg' ) {
+ push @list, undef;
+ } else {
+ unshift @list, undef;
+ }
+ is_deeply(
+ [$users_obj->DistinctFieldValues('GroupName', Order => 'ASC')],
+ [@list],
+ 'Correct list'
+ );
+ is_deeply(
+ [$users_obj->DistinctFieldValues('GroupName', Order => 'DESC')],
+ [reverse @list],
+ 'Correct list'
+ );
+ $users_obj->CleanSlate;
+ }
$users_obj->Limit( FIELD => 'Login', OPERATOR => 'LIKE', VALUE => 'k' );
is_deeply(
commit 2c24943a851dfba439a6bad6d598af65a9173aad
Author: Ruslan Zakirov <ruz at bestpractical.com>
Date: Fri May 20 20:52:23 2011 +0400
update M::I
diff --git a/META.yml b/META.yml
index 0b01496..52401f2 100644
--- a/META.yml
+++ b/META.yml
@@ -10,7 +10,7 @@ build_requires:
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 1.00'
+generated_by: 'Module::Install version 1.01'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
diff --git a/inc/Module/Install.pm b/inc/Module/Install.pm
index 8ee839d..74caf9c 100644
--- a/inc/Module/Install.pm
+++ b/inc/Module/Install.pm
@@ -31,7 +31,7 @@ BEGIN {
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '1.00';
+ $VERSION = '1.01';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -467,4 +467,4 @@ sub _CLASS ($) {
1;
-# Copyright 2008 - 2010 Adam Kennedy.
+# Copyright 2008 - 2011 Adam Kennedy.
diff --git a/inc/Module/Install/AutoInstall.pm b/inc/Module/Install/AutoInstall.pm
index f1f5356..bc3d172 100644
--- a/inc/Module/Install/AutoInstall.pm
+++ b/inc/Module/Install/AutoInstall.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff --git a/inc/Module/Install/Base.pm b/inc/Module/Install/Base.pm
index b55bda3..d3662c9 100644
--- a/inc/Module/Install/Base.pm
+++ b/inc/Module/Install/Base.pm
@@ -4,7 +4,7 @@ package Module::Install::Base;
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
}
# Suspend handler for "redefined" warnings
diff --git a/inc/Module/Install/Include.pm b/inc/Module/Install/Include.pm
index a28cd4c..90cc979 100644
--- a/inc/Module/Install/Include.pm
+++ b/inc/Module/Install/Include.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff --git a/inc/Module/Install/Makefile.pm b/inc/Module/Install/Makefile.pm
index 5dfd0e9..4c71003 100644
--- a/inc/Module/Install/Makefile.pm
+++ b/inc/Module/Install/Makefile.pm
@@ -8,7 +8,7 @@ use Fcntl qw/:flock :seek/;
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff --git a/inc/Module/Install/Metadata.pm b/inc/Module/Install/Metadata.pm
index cfe45b3..3b01e09 100644
--- a/inc/Module/Install/Metadata.pm
+++ b/inc/Module/Install/Metadata.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -515,6 +515,7 @@ sub __extract_license {
'GNU Free Documentation license' => 'unrestricted', 1,
'GNU Affero General Public License' => 'open_source', 1,
'(?:Free)?BSD license' => 'bsd', 1,
+ 'Artistic license 2\.0' => 'artistic_2', 1,
'Artistic license' => 'artistic', 1,
'Apache (?:Software )?license' => 'apache', 1,
'GPL' => 'gpl', 1,
@@ -550,9 +551,9 @@ sub license_from {
sub _extract_bugtracker {
my @links = $_[0] =~ m#L<(
- \Qhttp://rt.cpan.org/\E[^>]+|
- \Qhttp://github.com/\E[\w_]+/[\w_]+/issues|
- \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list
+ https?\Q://rt.cpan.org/\E[^>]+|
+ https?\Q://github.com/\E[\w_]+/[\w_]+/issues|
+ https?\Q://code.google.com/p/\E[\w_\-]+/issues/list
)>#gx;
my %links;
@links{@links}=();
-----------------------------------------------------------------------
More information about the Bps-public-commit
mailing list