public inbox for git-commits@fedoraproject.org
help / color / mirror / Atom feed
To: git-commits@fedoraproject.org
Subject: [rpms/perl-SQL-Translator] epel10.2: Adapt to changes in JSON-PP-0.92
Date: Fri, 07 Aug 2026 12:47:52 GMT [thread overview]
Message-ID: <178610687226.1.6892833047073031746.rpms-perl-SQL-Translator-99ba8b9256ba@fedoraproject.org> (raw)
A new commit has been pushed.
Repo : rpms/perl-SQL-Translator
Branch : epel10.2
Commit : 99ba8b9256ba81e0660addf48b2136c05d8ca371
Author : Petr Písař <ppisar@redhat.com>
Date : 2017-05-26T10:59:05+02:00
Stats : +185/-1 in 2 file(s)
URL : https://src.fedoraproject.org/rpms/perl-SQL-Translator/c/99ba8b9256ba81e0660addf48b2136c05d8ca371?branch=epel10.2
Log:
Adapt to changes in JSON-PP-0.92
---
diff --git a/SQL-Translator-0.11021-Adapt-tests-to-JSON-PP-2.92.patch b/SQL-Translator-0.11021-Adapt-tests-to-JSON-PP-2.92.patch
new file mode 100644
index 0000000..9e21636
--- /dev/null
+++ b/SQL-Translator-0.11021-Adapt-tests-to-JSON-PP-2.92.patch
@@ -0,0 +1,178 @@
+From 5dd8305efe56f37f8718e0a9cd08e9ed5aa83cbf Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Fri, 26 May 2017 10:43:05 +0200
+Subject: [PATCH] Adapt tests to JSON-PP-2.92
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+JSON-PP-2.91_01 fixed numeric value detection and that cused
+t/23json.t test failure. There was a change in "order" value quoting.
+Previously, the value was encoded as a string, now it's encoded as
+number.
+
+CPAN RT#121901
+
+Ported to 0.11021.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ t/23json.t | 37 +++++++++++++++++++++----------------
+ 1 file changed, 21 insertions(+), 16 deletions(-)
+
+diff --git a/t/23json.t b/t/23json.t
+index 0b063e2..9ef4e86 100644
+--- a/t/23json.t
++++ b/t/23json.t
+@@ -15,8 +15,7 @@ BEGIN {
+ }
+
+ my $sqlt_version = $SQL::Translator::VERSION;
+-use JSON;
+-my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
++my $json_string = <<JSON;
+ {
+ "schema" : {
+ "procedures" : {},
+@@ -62,7 +61,7 @@ my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
+ "is_primary_key" : 0,
+ "is_unique" : 0,
+ "name" : "age",
+- "order" : "3",
++ "order" : 3,
+ "size" : [
+ "0"
+ ]
+@@ -74,7 +73,7 @@ my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
+ "is_primary_key" : 0,
+ "is_unique" : 0,
+ "name" : "description",
+- "order" : "6",
++ "order" : 6,
+ "size" : [
+ "0"
+ ]
+@@ -86,7 +85,7 @@ my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
+ "is_primary_key" : 0,
+ "is_unique" : 0,
+ "name" : "iq",
+- "order" : "5",
++ "order" : 5,
+ "size" : [
+ "0"
+ ]
+@@ -98,7 +97,7 @@ my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
+ "is_primary_key" : 0,
+ "is_unique" : 1,
+ "name" : "name",
+- "order" : "2",
++ "order" : 2,
+ "size" : [
+ "20"
+ ]
+@@ -111,7 +110,7 @@ my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
+ "is_primary_key" : 1,
+ "is_unique" : 0,
+ "name" : "person_id",
+- "order" : "1",
++ "order" : 1,
+ "size" : [
+ "0"
+ ]
+@@ -123,7 +122,7 @@ my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
+ "is_primary_key" : 0,
+ "is_unique" : 0,
+ "name" : "weight",
+- "order" : "4",
++ "order" : 4,
+ "size" : [
+ "11",
+ "2"
+@@ -133,7 +132,7 @@ my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
+ "indices" : [],
+ "name" : "person",
+ "options" : [],
+- "order" : "1"
++ "order" : 1
+ },
+ "pet" : {
+ "constraints" : [
+@@ -192,7 +191,7 @@ my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
+ "is_primary_key" : 0,
+ "is_unique" : 0,
+ "name" : "age",
+- "order" : "4",
++ "order" : 4,
+ "size" : [
+ "0"
+ ]
+@@ -204,7 +203,7 @@ my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
+ "is_primary_key" : 0,
+ "is_unique" : 0,
+ "name" : "name",
+- "order" : "3",
++ "order" : 3,
+ "size" : [
+ "30"
+ ]
+@@ -216,7 +215,7 @@ my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
+ "is_primary_key" : 1,
+ "is_unique" : 0,
+ "name" : "person_id",
+- "order" : "2",
++ "order" : 2,
+ "size" : [
+ "0"
+ ]
+@@ -228,7 +227,7 @@ my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
+ "is_primary_key" : 1,
+ "is_unique" : 0,
+ "name" : "pet_id",
+- "order" : "1",
++ "order" : 1,
+ "size" : [
+ "0"
+ ]
+@@ -237,7 +236,7 @@ my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
+ "indices" : [],
+ "name" : "pet",
+ "options" : [],
+- "order" : "2"
++ "order" : 2
+ }
+ },
+ "triggers" : {
+@@ -255,7 +254,7 @@ my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
+ "fields" : null,
+ "name" : "pet_trig",
+ "on_table" : "pet",
+- "order" : "1",
++ "order" : 1,
+ "perform_action_when" : "after"
+ }
+ },
+@@ -263,7 +262,7 @@ my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
+ "person_pet" : {
+ "fields" : [],
+ "name" : "person_pet",
+- "order" : "1",
++ "order" : 1,
+ "sql" : "select pr.person_id, pr.name as person_name, pt.name as pet_name\\n from person pr, pet pt\\n where person.person_id=pet.pet_id\\n"
+ }
+ }
+@@ -285,6 +284,12 @@ my $json = to_json(from_json(<<JSON), { canonical => 1, pretty => 1 });
+ }
+ }
+ JSON
++use JSON;
++if (JSON->is_pp && JSON->VERSION < 2.91_01) {
++ # JSON-PP-2.91_01 fixed numeric value detection, CPAN RT#121901
++ $json_string =~ s/("order" : )(\d+)(,?)/$1"$2"$3/g;
++}
++my $json = to_json(from_json($json_string), { canonical => 1, pretty => 1 });
+
+ my $file = "$Bin/data/sqlite/create.sql";
+ open my $fh, '<', $file or die "Can't read '$file': $!\n";
+--
+2.9.4
+
diff --git a/perl-SQL-Translator.spec b/perl-SQL-Translator.spec
index 08f4633..eda742d 100644
--- a/perl-SQL-Translator.spec
+++ b/perl-SQL-Translator.spec
@@ -1,10 +1,12 @@
Name: perl-SQL-Translator
Summary: Manipulate structured data definitions (SQL and more)
Version: 0.11021
-Release: 7%{?dist}
+Release: 8%{?dist}
License: GPL+ or Artistic
Group: Development/Libraries
Source0: http://search.cpan.org/CPAN/authors/id/I/IL/ILMARI/SQL-Translator-%{version}.tar.gz
+# Adapt to changes in JSON-PP-0.92, bug #1455782, CPAN RT#121901
+Patch0: SQL-Translator-0.11021-Adapt-tests-to-JSON-PP-2.92.patch
URL: http://search.cpan.org/dist/SQL-Translator/
BuildArch: noarch
BuildRequires: perl
@@ -136,6 +138,7 @@ ER diagram producer for SQL::Translator.
%prep
%setup -q -n SQL-Translator-%{version}
+%patch0 -p1
# Remove bundled modules
rm -r inc
sed -i -e '/^inc\//d' MANIFEST
@@ -169,6 +172,9 @@ make test
%{_mandir}/man3/SQL::Translator::Producer::Diagram.*
%changelog
+* Fri May 26 2017 Petr Pisar <ppisar@redhat.com> - 0.11021-8
+- Adapt to changes in JSON-PP-0.92 (bug #1455782)
+
* Sat Feb 11 2017 Fedora Release Engineering <releng@fedoraproject.org> - 0.11021-7
- Rebuilt for https://fedoraproject.org/wiki/Fedora_26_Mass_Rebuild
reply other threads:[~2026-08-07 12:47 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=178610687226.1.6892833047073031746.rpms-perl-SQL-Translator-99ba8b9256ba@fedoraproject.org \
--to=git-commits@fedoraproject.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox