Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Lingua-Translit for
openSUSE:Factory checked in at 2022-06-21 17:15:21
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Lingua-Translit (Old)
and /work/SRC/openSUSE:Factory/.perl-Lingua-Translit.new.1548 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Lingua-Translit"
Tue Jun 21 17:15:21 2022 rev:4 rq:983955 version:0.29
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Lingua-Translit/perl-Lingua-Translit.changes
2017-10-23 16:40:55.163426472 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Lingua-Translit.new.1548/perl-Lingua-Translit.changes
2022-06-21 17:15:25.818346767 +0200
@@ -1,0 +2,11 @@
+Thu Jun 16 03:07:20 UTC 2022 - Tina M??ller <timueller+p...@suse.de>
+
+- updated to 0.29
+ see /usr/share/doc/packages/perl-Lingua-Translit/Changes
+
+ 0.29 -- 2022-06-15
+
+ * Fixed numeric zero and empty string argument handling in translit() &
+ translit_reverse().
+
+-------------------------------------------------------------------
Old:
----
Lingua-Translit-0.28.tar.gz
New:
----
Lingua-Translit-0.29.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Lingua-Translit.spec ++++++
--- /var/tmp/diff_new_pack.SQZofk/_old 2022-06-21 17:15:26.838347806 +0200
+++ /var/tmp/diff_new_pack.SQZofk/_new 2022-06-21 17:15:26.842347810 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Lingua-Translit
#
-# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2022 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -12,22 +12,20 @@
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.
-# Please submit bugfixes or comments via http://bugs.opensuse.org/
+# Please submit bugfixes or comments via https://bugs.opensuse.org/
#
+%define cpan_name Lingua-Translit
Name: perl-Lingua-Translit
-Version: 0.28
+Version: 0.29
Release: 0
-%define cpan_name Lingua-Translit
-Summary: Transliterates Text Between Writing Systems
-License: Artistic-1.0 or GPL-1.0+
-Group: Development/Libraries/Perl
-Url: http://search.cpan.org/dist/Lingua-Translit/
+License: Artistic-1.0 OR GPL-1.0-or-later
+Summary: Transliterates text between writing systems
+URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/A/AL/ALINKE/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
BuildArch: noarch
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
%{perl_requires}
@@ -62,15 +60,15 @@
Cyrillic.
%prep
-%setup -q -n %{cpan_name}-%{version}
-find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644
+%autosetup -n %{cpan_name}-%{version}
+find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path
"*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644
%build
-%{__perl} Makefile.PL INSTALLDIRS=vendor
-%{__make} %{?_smp_mflags}
+perl Makefile.PL INSTALLDIRS=vendor
+%make_build
%check
-%{__make} test
+make test
%install
%perl_make_install
@@ -78,7 +76,6 @@
%perl_gen_filelist
%files -f %{name}.files
-%defattr(-,root,root,755)
%doc Changes README translit
%changelog
++++++ Lingua-Translit-0.28.tar.gz -> Lingua-Translit-0.29.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-Translit-0.28/Changes
new/Lingua-Translit-0.29/Changes
--- old/Lingua-Translit-0.28/Changes 2017-10-16 10:55:15.000000000 +0200
+++ new/Lingua-Translit-0.29/Changes 2022-06-15 11:53:01.000000000 +0200
@@ -1,3 +1,8 @@
+0.29 -- 2022-06-15
+
+ * Fixed numeric zero and empty string argument handling in translit() &
+ translit_reverse().
+
0.28 -- 2017-10-16
* Fixed wrong capitalised Cyrillic A in several context rules of both
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-Translit-0.28/MANIFEST
new/Lingua-Translit-0.29/MANIFEST
--- old/Lingua-Translit-0.28/MANIFEST 2017-10-16 10:56:09.000000000 +0200
+++ new/Lingua-Translit-0.29/MANIFEST 2022-06-15 11:59:46.000000000 +0200
@@ -65,4 +65,6 @@
xml/template.xml
xml/translit.dtd
xml/xml2dump.pl
-META.yml Module meta-data (added by MakeMaker)
+t/90_zero.t
+META.yml Module YAML meta-data (added by
MakeMaker)
+META.json Module JSON meta-data (added by
MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-Translit-0.28/META.json
new/Lingua-Translit-0.29/META.json
--- old/Lingua-Translit-0.28/META.json 1970-01-01 01:00:00.000000000 +0100
+++ new/Lingua-Translit-0.29/META.json 2022-06-15 11:59:46.000000000 +0200
@@ -0,0 +1,37 @@
+{
+ "abstract" : "transliterates text between writing systems",
+ "author" : [
+ "Alex Linke <ali...@netzum-sorglos.de>"
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter
version 2.150010",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
+ "version" : 2
+ },
+ "name" : "Lingua-Translit",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ }
+ },
+ "release_status" : "stable",
+ "version" : "0.29",
+ "x_serialization_backend" : "JSON::PP version 2.97001"
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-Translit-0.28/META.yml
new/Lingua-Translit-0.29/META.yml
--- old/Lingua-Translit-0.28/META.yml 2017-10-16 10:56:09.000000000 +0200
+++ new/Lingua-Translit-0.29/META.yml 2022-06-15 11:59:46.000000000 +0200
@@ -1,21 +1,21 @@
---- #YAML:1.0
-name: Lingua-Translit
-version: 0.28
-abstract: transliterates text between writing systems
+---
+abstract: 'transliterates text between writing systems'
author:
- - Alex Linke <ali...@netzum-sorglos.de>
-license: perl
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
+ - 'Alex Linke <ali...@netzum-sorglos.de>'
build_requires:
- ExtUtils::MakeMaker: 0
-requires: {}
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.57_05
+ ExtUtils::MakeMaker: '0'
+configure_requires:
+ ExtUtils::MakeMaker: '0'
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version
2.150010'
+license: perl
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: '1.4'
+name: Lingua-Translit
+no_index:
+ directory:
+ - t
+ - inc
+version: '0.29'
+x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-Translit-0.28/README
new/Lingua-Translit-0.29/README
--- old/Lingua-Translit-0.28/README 2017-10-16 10:55:15.000000000 +0200
+++ new/Lingua-Translit-0.29/README 2022-06-15 11:53:01.000000000 +0200
@@ -31,7 +31,7 @@
Copyright (C) 2007-2008 Alex Linke and Rona Linke
Copyright (C) 2009-2016 Lingua-Systems Software GmbH
Copyright (C) 2016-2017 Netzum Sorglos, Lingua-Systems Software GmbH
-Copyright (C) 2017 Netzum Sorglos Software GmbH
+Copyright (C) 2017-2022 Netzum Sorglos Software GmbH
This module is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-Translit-0.28/lib/Lingua/Translit/Tables.pm
new/Lingua-Translit-0.29/lib/Lingua/Translit/Tables.pm
--- old/Lingua-Translit-0.28/lib/Lingua/Translit/Tables.pm 2017-10-16
10:55:15.000000000 +0200
+++ new/Lingua-Translit-0.29/lib/Lingua/Translit/Tables.pm 2022-06-15
11:53:01.000000000 +0200
@@ -6,7 +6,7 @@
# Rona Linke <rli...@lingua-systems.com>
# Copyright (C) 2009-2016 Lingua-Systems Software GmbH
# Copyright (C) 2016-2017 Netzum Sorglos, Lingua-Systems Software GmbH
-# Copyright (C) 2017 Netzum Sorglos Software GmbH
+# Copyright (C) 2017-2022 Netzum Sorglos Software GmbH
#
use strict;
@@ -312,7 +312,7 @@
Copyright (C) 2016-2017 Netzum Sorglos, Lingua-Systems Software GmbH
-Copyright (C) 2017 Netzum Sorglos Software GmbH
+Copyright (C) 2017-2022 Netzum Sorglos Software GmbH
This module is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-Translit-0.28/lib/Lingua/Translit.pm
new/Lingua-Translit-0.29/lib/Lingua/Translit.pm
--- old/Lingua-Translit-0.28/lib/Lingua/Translit.pm 2017-10-16
10:55:15.000000000 +0200
+++ new/Lingua-Translit-0.29/lib/Lingua/Translit.pm 2022-06-15
11:53:01.000000000 +0200
@@ -6,7 +6,7 @@
# Rona Linke <rli...@lingua-systems.com>
# Copyright (C) 2009-2016 Lingua-Systems Software GmbH
# Copyright (C) 2016-2017 Netzum Sorglos, Lingua-Systems Software GmbH
-# Copyright (C) 2017 Netzum Sorglos Software GmbH
+# Copyright (C) 2017-2022 Netzum Sorglos Software GmbH
#
use strict;
@@ -19,7 +19,7 @@
use Lingua::Translit::Tables;
-our $VERSION = '0.28';
+our $VERSION = '0.29';
=pod
@@ -134,7 +134,8 @@
my $text = shift();
# Return if no input was given
- return unless $text;
+ return undef if ! defined $text;
+ return '' if $text eq '';
my $utf8_flag_on = Encode::is_utf8($text);
@@ -194,7 +195,8 @@
my $text = shift();
# Return if no input was given
- return unless $text;
+ return undef if ! defined $text;
+ return '' if $text eq '';
# Is this transliteration reversible?
croak("$self->{name} cannot be reversed") unless $self->{reverse};
@@ -417,7 +419,7 @@
Copyright (C) 2016-2017 Netzum Sorglos, Lingua-Systems Software GmbH
-Copyright (C) 2017 Netzum Sorglos Software GmbH
+Copyright (C) 2017-2022 Netzum Sorglos Software GmbH
This module is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-Translit-0.28/t/90_zero.t
new/Lingua-Translit-0.29/t/90_zero.t
--- old/Lingua-Translit-0.28/t/90_zero.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Lingua-Translit-0.29/t/90_zero.t 2022-06-15 11:53:01.000000000
+0200
@@ -0,0 +1,87 @@
+use strict;
+use Test::More tests => 15;
+
+my $name = "DIN 1460 UKR";
+my $reversible = 1;
+
+use Lingua::Translit;
+
+my $tr = new Lingua::Translit($name);
+
+my $output;
+
+
+# 1
+is($tr->can_reverse(), $reversible, "$name: reversibility");
+
+# 2
+$output = $tr->translit( "0" );
+
+is($output, "0", "$name: transliteration #1");
+
+# 3
+$output = $tr->translit( 0 );
+
+is($output, "0", "$name: transliteration #2");
+
+# 4
+$output = $tr->translit( "\x30" );
+
+is($output, "0", "$name: transliteration #3");
+
+# 5
+$output = $tr->translit();
+
+is($output, undef, "$name: transliteration #4");
+
+# 6
+$output = $tr->translit( undef );
+
+is($output, undef, "$name: transliteration #5");
+
+# 7
+$output = $tr->translit( '' );
+
+is($output, '', "$name: transliteration #6");
+
+# 8
+$output = $tr->translit( '01' );
+
+is($output, '01', "$name: transliteration #7");
+
+# 9
+$output = $tr->translit_reverse( "0" );
+
+is($output, "0", "$name: transliteration #8");
+
+# 10
+$output = $tr->translit_reverse( 0 );
+
+is($output, "0", "$name: transliteration #9");
+
+# 11
+$output = $tr->translit_reverse( "\x30" );
+
+is($output, "0", "$name: transliteration #10");
+
+# 12
+$output = $tr->translit_reverse();
+
+is($output, undef, "$name: transliteration #11");
+
+# 13
+$output = $tr->translit_reverse( undef );
+
+is($output, undef, "$name: transliteration #12");
+
+# 14
+$output = $tr->translit_reverse( '' );
+
+is($output, '', "$name: transliteration #13");
+
+# 15
+$output = $tr->translit_reverse( '01' );
+
+is($output, '01', "$name: transliteration #14");
+
+# vim: set ft=perl sts=4 sw=4 ts=4 ai et:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-Translit-0.28/tools/substitute_tables.pl
new/Lingua-Translit-0.29/tools/substitute_tables.pl
--- old/Lingua-Translit-0.28/tools/substitute_tables.pl 2017-10-16
10:55:15.000000000 +0200
+++ new/Lingua-Translit-0.29/tools/substitute_tables.pl 2022-06-15
11:53:01.000000000 +0200
@@ -4,7 +4,7 @@
# Copyright (C) 2007-2008 Alex Linke <ali...@lingua-systems.com>
# Copyright (C) 2009-2016 Lingua-Systems Software GmbH
# Copyright (C) 2016-2017 Netzum Sorglos, Lingua-Systems Software GmbH
-# Copyright (C) 2017 Netzum Sorglos Software GmbH
+# Copyright (C) 2017-2022 Netzum Sorglos Software GmbH
#
use strict;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-Translit-0.28/translit
new/Lingua-Translit-0.29/translit
--- old/Lingua-Translit-0.28/translit 2017-10-16 10:55:15.000000000 +0200
+++ new/Lingua-Translit-0.29/translit 2022-06-15 11:53:01.000000000 +0200
@@ -6,7 +6,7 @@
# Rona Linke <rli...@lingua-systems.com>
# Copyright (C) 2009-2016 Lingua-Systems Software GmbH
# Copyright (C) 2016-2017 Netzum Sorglos, Lingua-Systems Software GmbH
-# Copyright (C) 2017 Netzum Sorglos Software GmbH
+# Copyright (C) 2017-2022 Netzum Sorglos Software GmbH
#
use strict;
@@ -17,7 +17,7 @@
use Lingua::Translit;
use Lingua::Translit::Tables qw/:all/;
-my $VERSION = '0.5';
+my $VERSION = '0.6';
=pod
@@ -188,7 +188,7 @@
my $retval = shift();
print "translit v$VERSION -- ",
- "(c) 2009-2016 Lingua-Systems Software GmbH\n\n",
+ "(c) 2007-2022 Netzum Sorglos Software GmbH\n\n",
"usage: $0 -i FILE -o FILE -t NAME -r -l -v -h\n\n",
" --infile -i FILE read input from FILE\n",
" --outfile -o FILE write output to FILE\n",
@@ -240,7 +240,7 @@
Copyright (C) 2016-2017 Netzum Sorglos, Lingua-Systems Software GmbH
-Copyright (C) 2017 Netzum Sorglos Software GmbH
+Copyright (C) 2017-2022 Netzum Sorglos Software GmbH
This module is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
