Hello community,
here is the log from the commit of package perl-Data-ObjectDriver for
openSUSE:Factory checked in at 2019-07-17 14:27:33
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Data-ObjectDriver (Old)
and /work/SRC/openSUSE:Factory/.perl-Data-ObjectDriver.new.1887 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Data-ObjectDriver"
Wed Jul 17 14:27:33 2019 rev:3 rq:715934 version:0.18
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Data-ObjectDriver/perl-Data-ObjectDriver.changes
2019-03-20 13:19:06.341346551 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Data-ObjectDriver.new.1887/perl-Data-ObjectDriver.changes
2019-07-17 14:27:33.315289933 +0200
@@ -1,0 +2,6 @@
+Tue Jul 16 09:20:37 UTC 2019 - Stephan Kulow <[email protected]>
+
+- updated to 0.18
+ see /usr/share/doc/packages/perl-Data-ObjectDriver/Changes
+
+-------------------------------------------------------------------
Old:
----
Data-ObjectDriver-0.17.tar.gz
New:
----
Data-ObjectDriver-0.18.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Data-ObjectDriver.spec ++++++
--- /var/tmp/diff_new_pack.AXgOys/_old 2019-07-17 14:27:34.159287311 +0200
+++ /var/tmp/diff_new_pack.AXgOys/_new 2019-07-17 14:27:34.163287298 +0200
@@ -17,7 +17,7 @@
Name: perl-Data-ObjectDriver
-Version: 0.17
+Version: 0.18
Release: 0
%define cpan_name Data-ObjectDriver
Summary: Simple, transparent data interface, with caching
++++++ Data-ObjectDriver-0.17.tar.gz -> Data-ObjectDriver-0.18.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-ObjectDriver-0.17/Changes
new/Data-ObjectDriver-0.18/Changes
--- old/Data-ObjectDriver-0.17/Changes 2019-03-12 05:26:32.000000000 +0100
+++ new/Data-ObjectDriver-0.18/Changes 2019-07-09 10:11:18.000000000 +0200
@@ -1,4 +1,8 @@
-0.17 2019-03-12T04:26:25Z
+0.18 2019-07-09T08:11:10Z
+
+0.18 2019-07-09T08:10:31Z
+
+ - add_complex_where can not handle some case of nested group (usualoma) #30
0.17 2019-03-12T04:24:20Z
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-ObjectDriver-0.17/META.json
new/Data-ObjectDriver-0.18/META.json
--- old/Data-ObjectDriver-0.17/META.json 2019-03-12 05:26:32.000000000
+0100
+++ new/Data-ObjectDriver-0.18/META.json 2019-07-09 10:11:18.000000000
+0200
@@ -70,7 +70,7 @@
"provides" : {
"Data::ObjectDriver" : {
"file" : "lib/Data/ObjectDriver.pm",
- "version" : "0.17"
+ "version" : "0.18"
},
"Data::ObjectDriver::BaseObject" : {
"file" : "lib/Data/ObjectDriver/BaseObject.pm"
@@ -159,7 +159,7 @@
"web" : "https://github.com/sixapart/data-objectdriver";
}
},
- "version" : "0.17",
+ "version" : "0.18",
"x_authority" : "cpan:SIXAPART",
"x_contributors" : [
"Adam Thomason <[email protected]>",
@@ -183,7 +183,9 @@
"Simon Wistow <[email protected]>",
"Takatsugu Shigeta <[email protected]>",
"Takatsugu Shigeta <[email protected]>",
+ "Taku AMANO <[email protected]>",
"Taku AMANO <[email protected]>",
+ "Taku AMANO <[email protected]>",
"Tatsuhiko Miyagawa <[email protected]>",
"Tsuyoshi Watanabe <[email protected]>",
"Yann Kerherve <[email protected]>",
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-ObjectDriver-0.17/META.yml
new/Data-ObjectDriver-0.18/META.yml
--- old/Data-ObjectDriver-0.17/META.yml 2019-03-12 05:26:32.000000000 +0100
+++ new/Data-ObjectDriver-0.18/META.yml 2019-07-09 10:11:18.000000000 +0200
@@ -28,7 +28,7 @@
provides:
Data::ObjectDriver:
file: lib/Data/ObjectDriver.pm
- version: '0.17'
+ version: '0.18'
Data::ObjectDriver::BaseObject:
file: lib/Data/ObjectDriver/BaseObject.pm
Data::ObjectDriver::BaseView:
@@ -92,7 +92,7 @@
bugtracker: https://github.com/sixapart/data-objectdriver/issues
homepage: https://github.com/sixapart/data-objectdriver
repository: git://github.com/sixapart/data-objectdriver.git
-version: '0.17'
+version: '0.18'
x_authority: cpan:SIXAPART
x_contributors:
- 'Adam Thomason <[email protected]>'
@@ -116,7 +116,9 @@
- 'Simon Wistow <[email protected]>'
- 'Takatsugu Shigeta <[email protected]>'
- 'Takatsugu Shigeta <[email protected]>'
+ - 'Taku AMANO <[email protected]>'
- 'Taku AMANO <[email protected]>'
+ - 'Taku AMANO <[email protected]>'
- 'Tatsuhiko Miyagawa <[email protected]>'
- 'Tsuyoshi Watanabe <[email protected]>'
- 'Yann Kerherve <[email protected]>'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-ObjectDriver-0.17/lib/Data/ObjectDriver/SQL.pm
new/Data-ObjectDriver-0.18/lib/Data/ObjectDriver/SQL.pm
--- old/Data-ObjectDriver-0.17/lib/Data/ObjectDriver/SQL.pm 2019-03-12
05:26:32.000000000 +0100
+++ new/Data-ObjectDriver-0.18/lib/Data/ObjectDriver/SQL.pm 2019-07-09
10:11:18.000000000 +0200
@@ -186,7 +186,7 @@
foreach my $t2 ( keys %$t ) {
my ($term, $bind, $col) = $stmt->_mk_term($t2, $t->{$t2});
$stmt->where_values->{$col} = $t->{$t2};
- push @out, $term;
+ push @out, "($term)";
push @bind, @$bind;
}
$out .= '(' . join(" AND ", @out) . ")";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-ObjectDriver-0.17/lib/Data/ObjectDriver.pm
new/Data-ObjectDriver-0.18/lib/Data/ObjectDriver.pm
--- old/Data-ObjectDriver-0.17/lib/Data/ObjectDriver.pm 2019-03-12
05:26:32.000000000 +0100
+++ new/Data-ObjectDriver-0.18/lib/Data/ObjectDriver.pm 2019-07-09
10:11:18.000000000 +0200
@@ -11,7 +11,7 @@
__PACKAGE__->mk_accessors(qw( pk_generator txn_active ));
-our $VERSION = '0.17';
+our $VERSION = '0.18';
our $DEBUG = $ENV{DOD_DEBUG} || 0;
our $PROFILE = $ENV{DOD_PROFILE} || 0;
our $PROFILER;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-ObjectDriver-0.17/t/11-sql.t
new/Data-ObjectDriver-0.18/t/11-sql.t
--- old/Data-ObjectDriver-0.17/t/11-sql.t 2019-03-12 05:26:32.000000000
+0100
+++ new/Data-ObjectDriver-0.18/t/11-sql.t 2019-07-09 10:11:18.000000000
+0200
@@ -3,7 +3,7 @@
use strict;
use Data::ObjectDriver::SQL;
-use Test::More tests => 93;
+use Test::More tests => 95;
my $stmt = ns();
ok($stmt, 'Created SQL object');
@@ -312,4 +312,31 @@
$stmt->comment("G\\G");
is($stmt->as_sql, "SELECT foo\nFROM baz\n-- G", "correctly untainted");
+## Testing complex WHERE
+$stmt = ns();
+$stmt->add_complex_where([
+ { foo => 'foo_value' },
+ { bar => 'bar_value' },
+]);
+is($stmt->as_sql_where, "WHERE ((foo = ?)) AND ((bar = ?))\n");
+
+$stmt = ns();
+my @terms = (
+ { foo => 'foo_value' },
+ {
+ bar => [
+ { op => 'LIKE', value => 'bar1%' },
+ { op => 'LIKE', value => 'bar2%' },
+ ],
+ baz => 'baz_value',
+ }
+);
+$stmt->add_complex_where(\@terms);
+is(
+ $stmt->as_sql_where,
+ (keys(%{$terms[1]}))[0] eq 'bar'
+ ? "WHERE ((foo = ?)) AND (((bar LIKE ?) OR (bar LIKE ?)) AND (baz =
?))\n"
+ : "WHERE ((foo = ?)) AND ((baz = ?) AND ((bar LIKE ?) OR (bar LIKE
?)))\n"
+);
+
sub ns { Data::ObjectDriver::SQL->new }
