Hello community,
here is the log from the commit of package perl-Lingua-EN-Inflect-Phrase for
openSUSE:Factory checked in at 2018-02-07 18:43:16
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Lingua-EN-Inflect-Phrase (Old)
and /work/SRC/openSUSE:Factory/.perl-Lingua-EN-Inflect-Phrase.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Lingua-EN-Inflect-Phrase"
Wed Feb 7 18:43:16 2018 rev:2 rq:573769 version:0.19
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Lingua-EN-Inflect-Phrase/perl-Lingua-EN-Inflect-Phrase.changes
2015-02-16 21:14:11.000000000 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Lingua-EN-Inflect-Phrase.new/perl-Lingua-EN-Inflect-Phrase.changes
2018-02-07 18:43:16.974930580 +0100
@@ -1,0 +2,10 @@
+Wed Feb 7 15:43:51 UTC 2018 - [email protected]
+
+- updated to 0.19
+ see /usr/share/doc/packages/perl-Lingua-EN-Inflect-Phrase/Changes
+
+ 0.19 2018-01-31 13:59:53
+ - fix for tagged proper nouns and -ity/-ities nouns by Zak B. Elep
+ (zakame) (RT#118767)
+
+-------------------------------------------------------------------
Old:
----
Lingua-EN-Inflect-Phrase-0.18.tar.gz
New:
----
Lingua-EN-Inflect-Phrase-0.19.tar.gz
cpanspec.yml
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Lingua-EN-Inflect-Phrase.spec ++++++
--- /var/tmp/diff_new_pack.fgxPq5/_old 2018-02-07 18:43:17.594901551 +0100
+++ /var/tmp/diff_new_pack.fgxPq5/_new 2018-02-07 18:43:17.598901365 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Lingua-EN-Inflect-Phrase
#
-# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,14 +17,15 @@
Name: perl-Lingua-EN-Inflect-Phrase
-Version: 0.18
+Version: 0.19
Release: 0
%define cpan_name Lingua-EN-Inflect-Phrase
Summary: Inflect short English Phrases
License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/Lingua-EN-Inflect-Phrase/
-Source:
http://www.cpan.org/authors/id/R/RK/RKITOVER/%{cpan_name}-%{version}.tar.gz
+Source0:
https://cpan.metacpan.org/authors/id/R/RK/RKITOVER/%{cpan_name}-%{version}.tar.gz
+Source1: cpanspec.yml
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
@@ -72,6 +73,7 @@
%files -f %{name}.files
%defattr(-,root,root,755)
-%doc Changes LICENSE README
+%doc Changes README
+%license LICENSE
%changelog
++++++ Lingua-EN-Inflect-Phrase-0.18.tar.gz ->
Lingua-EN-Inflect-Phrase-0.19.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-EN-Inflect-Phrase-0.18/Changes
new/Lingua-EN-Inflect-Phrase-0.19/Changes
--- old/Lingua-EN-Inflect-Phrase-0.18/Changes 2012-12-27 06:09:58.000000000
+0100
+++ new/Lingua-EN-Inflect-Phrase-0.19/Changes 2018-01-31 19:59:56.000000000
+0100
@@ -1,5 +1,9 @@
Revision history for Lingua-EN-Inflect-Phrase
+0.19 2018-01-31 13:59:53
+ - fix for tagged proper nouns and -ity/-ities nouns by Zak B. Elep
+ (zakame) (RT#118767)
+
0.18 2012-12-27 00:09:43
- fix meta repository info (RT#82274)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-EN-Inflect-Phrase-0.18/LICENSE
new/Lingua-EN-Inflect-Phrase-0.19/LICENSE
--- old/Lingua-EN-Inflect-Phrase-0.18/LICENSE 2012-12-27 06:09:58.000000000
+0100
+++ new/Lingua-EN-Inflect-Phrase-0.19/LICENSE 2018-01-31 19:59:56.000000000
+0100
@@ -1,4 +1,4 @@
-This software is copyright (c) 2012 by Rafael Kitover.
+This software is copyright (c) 2018 by Rafael Kitover.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2012 by Rafael Kitover.
+This software is Copyright (c) 2018 by Rafael Kitover.
This is free software, licensed under:
@@ -22,7 +22,7 @@
Version 1, February 1989
Copyright (C) 1989 Free Software Foundation, Inc.
- 51 Franklin St, Suite 500, Boston, MA 02110-1335 USA
+ 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
@@ -272,7 +272,7 @@
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2012 by Rafael Kitover.
+This software is Copyright (c) 2018 by Rafael Kitover.
This is free software, licensed under:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-EN-Inflect-Phrase-0.18/MANIFEST
new/Lingua-EN-Inflect-Phrase-0.19/MANIFEST
--- old/Lingua-EN-Inflect-Phrase-0.18/MANIFEST 2012-12-27 06:09:58.000000000
+0100
+++ new/Lingua-EN-Inflect-Phrase-0.19/MANIFEST 2018-01-31 19:59:56.000000000
+0100
@@ -1,3 +1,4 @@
+# This file was automatically generated by Dist::Zilla::Plugin::Manifest
v6.010.
Changes
LICENSE
MANIFEST
@@ -8,9 +9,9 @@
dist.ini
lib/Lingua/EN/Inflect/Phrase.pm
t/00-compile.t
+t/author-pod-syntax.t
t/basic.t
t/bugs.t
t/lib/TestPhrase.pm
t/numbers.t
-t/release-pod-syntax.t
t/schema-loader.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-EN-Inflect-Phrase-0.18/META.json
new/Lingua-EN-Inflect-Phrase-0.19/META.json
--- old/Lingua-EN-Inflect-Phrase-0.18/META.json 2012-12-27 06:09:58.000000000
+0100
+++ new/Lingua-EN-Inflect-Phrase-0.19/META.json 2018-01-31 19:59:56.000000000
+0100
@@ -4,13 +4,13 @@
"Rafael Kitover <[email protected]>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.300028, CPAN::Meta::Converter
version 2.120921",
+ "generated_by" : "Dist::Zilla version 6.010, CPAN::Meta::Converter version
2.150010",
"license" : [
"perl_5"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
- "version" : "2"
+ "version" : 2
},
"name" : "Lingua-EN-Inflect-Phrase",
"no_index" : {
@@ -21,7 +21,7 @@
"prereqs" : {
"configure" : {
"requires" : {
- "ExtUtils::MakeMaker" : "6.30"
+ "ExtUtils::MakeMaker" : "0"
}
},
"develop" : {
@@ -43,10 +43,13 @@
},
"test" : {
"requires" : {
- "File::Find" : "0",
- "File::Temp" : "0",
+ "File::Spec" : "0",
+ "IO::Handle" : "0",
+ "IPC::Open3" : "0",
"Test::More" : "0",
- "Test::NoWarnings" : "0"
+ "Test::NoWarnings" : "0",
+ "lib" : "0",
+ "perl" : "5.006"
}
}
},
@@ -66,7 +69,11 @@
"web" : "http://github.com/rkitover/lingua-en-inflect-phrase";
}
},
- "version" : "0.18",
- "x_authority" : "cpan:AVAR"
+ "version" : "0.19",
+ "x_authority" : "cpan:AVAR",
+ "x_contributors" : [
+ "Zak B. Elep <[email protected]>"
+ ],
+ "x_serialization_backend" : "Cpanel::JSON::XS version 3.0239"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-EN-Inflect-Phrase-0.18/META.yml
new/Lingua-EN-Inflect-Phrase-0.19/META.yml
--- old/Lingua-EN-Inflect-Phrase-0.18/META.yml 2012-12-27 06:09:58.000000000
+0100
+++ new/Lingua-EN-Inflect-Phrase-0.19/META.yml 2018-01-31 19:59:56.000000000
+0100
@@ -3,35 +3,41 @@
author:
- 'Rafael Kitover <[email protected]>'
build_requires:
- File::Find: 0
- File::Temp: 0
- Test::More: 0
- Test::NoWarnings: 0
+ File::Spec: '0'
+ IO::Handle: '0'
+ IPC::Open3: '0'
+ Test::More: '0'
+ Test::NoWarnings: '0'
+ lib: '0'
+ perl: '5.006'
configure_requires:
- ExtUtils::MakeMaker: 6.30
+ ExtUtils::MakeMaker: '0'
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.300028, CPAN::Meta::Converter version
2.120921'
+generated_by: 'Dist::Zilla version 6.010, CPAN::Meta::Converter version
2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: Lingua-EN-Inflect-Phrase
no_index:
directory:
- t
requires:
- Exporter: 0
- Lingua::EN::FindNumber: 0
- Lingua::EN::Inflect: 0
- Lingua::EN::Inflect::Number: 0
- Lingua::EN::Number::IsOrdinal: 0
- Lingua::EN::Tagger: 0
- strict: 0
- warnings: 0
+ Exporter: '0'
+ Lingua::EN::FindNumber: '0'
+ Lingua::EN::Inflect: '0'
+ Lingua::EN::Inflect::Number: '0'
+ Lingua::EN::Number::IsOrdinal: '0'
+ Lingua::EN::Tagger: '0'
+ strict: '0'
+ warnings: '0'
resources:
bugtracker:
https://rt.cpan.org/Public/Dist/Display.html?Name=Lingua-EN-Inflect-Phrase
homepage: http://metacpan.org/release/Lingua-EN-Inflect-Phrase
license: http://dev.perl.org/licenses/
repository: git://github.com/rkitover/lingua-en-inflect-phrase.git
-version: 0.18
+version: '0.19'
x_authority: cpan:AVAR
+x_contributors:
+ - 'Zak B. Elep <[email protected]>'
+x_serialization_backend: 'YAML::Tiny version 1.70'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-EN-Inflect-Phrase-0.18/Makefile.PL
new/Lingua-EN-Inflect-Phrase-0.19/Makefile.PL
--- old/Lingua-EN-Inflect-Phrase-0.18/Makefile.PL 2012-12-27
06:09:58.000000000 +0100
+++ new/Lingua-EN-Inflect-Phrase-0.19/Makefile.PL 2018-01-31
19:59:56.000000000 +0100
@@ -1,28 +1,20 @@
-
+# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker
v6.010.
use strict;
use warnings;
+use 5.006;
-
-use ExtUtils::MakeMaker 6.30;
-
-
+use ExtUtils::MakeMaker;
my %WriteMakefileArgs = (
"ABSTRACT" => "Inflect short English Phrases",
"AUTHOR" => "Rafael Kitover <rkitover\@cpan.org>",
- "BUILD_REQUIRES" => {
- "File::Find" => 0,
- "File::Temp" => 0,
- "Test::More" => 0,
- "Test::NoWarnings" => 0
- },
"CONFIGURE_REQUIRES" => {
- "ExtUtils::MakeMaker" => "6.30"
+ "ExtUtils::MakeMaker" => 0
},
"DISTNAME" => "Lingua-EN-Inflect-Phrase",
- "EXE_FILES" => [],
"LICENSE" => "perl",
+ "MIN_PERL_VERSION" => "5.006",
"NAME" => "Lingua::EN::Inflect::Phrase",
"PREREQ_PM" => {
"Exporter" => 0,
@@ -34,30 +26,46 @@
"strict" => 0,
"warnings" => 0
},
- "VERSION" => "0.18",
+ "TEST_REQUIRES" => {
+ "File::Spec" => 0,
+ "IO::Handle" => 0,
+ "IPC::Open3" => 0,
+ "Test::More" => 0,
+ "Test::NoWarnings" => 0,
+ "lib" => 0
+ },
+ "VERSION" => "0.19",
"test" => {
"TESTS" => "t/*.t"
}
);
-unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
- my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
- my $pp = $WriteMakefileArgs{PREREQ_PM};
- for my $mod ( keys %$br ) {
- if ( exists $pp->{$mod} ) {
- $pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod};
- }
- else {
- $pp->{$mod} = $br->{$mod};
- }
- }
+my %FallbackPrereqs = (
+ "Exporter" => 0,
+ "File::Spec" => 0,
+ "IO::Handle" => 0,
+ "IPC::Open3" => 0,
+ "Lingua::EN::FindNumber" => 0,
+ "Lingua::EN::Inflect" => 0,
+ "Lingua::EN::Inflect::Number" => 0,
+ "Lingua::EN::Number::IsOrdinal" => 0,
+ "Lingua::EN::Tagger" => 0,
+ "Test::More" => 0,
+ "Test::NoWarnings" => 0,
+ "lib" => 0,
+ "strict" => 0,
+ "warnings" => 0
+);
+
+
+unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
+ delete $WriteMakefileArgs{TEST_REQUIRES};
+ delete $WriteMakefileArgs{BUILD_REQUIRES};
+ $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}
delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
unless eval { ExtUtils::MakeMaker->VERSION(6.52) };
WriteMakefile(%WriteMakefileArgs);
-
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-EN-Inflect-Phrase-0.18/README
new/Lingua-EN-Inflect-Phrase-0.19/README
--- old/Lingua-EN-Inflect-Phrase-0.18/README 2012-12-27 06:09:58.000000000
+0100
+++ new/Lingua-EN-Inflect-Phrase-0.19/README 2018-01-31 19:59:56.000000000
+0100
@@ -1,19 +1,22 @@
NAME
+
Lingua::EN::Inflect::Phrase - Inflect short English Phrases
SYNOPSIS
+
use Lingua::EN::Inflect::Phrase;
use Test::More tests => 2;
-
+
my $plural = Lingua::EN::Inflect::Phrase::to_PL('green egg and ham');
-
+
is $plural, 'green eggs and ham';
-
+
my $singular = Lingua::EN::Inflect::Phrase::to_S('green eggs and ham');
-
+
is $singular, 'green egg and ham';
DESCRIPTION
+
Attempts to pluralize or singularize short English phrases.
Does not throw exceptions at present, if you attempt to pluralize an
@@ -27,10 +30,11 @@
and I'll try to fix it.
OPTIONS
- By default, this module prefers to treat words as nouns (sometimes words
- can be interpreted as a verb or a noun without context.) This is better
- for things such as database table/column names, which is what this
- module is primarily for.
+
+ By default, this module prefers to treat words as nouns (sometimes
+ words can be interpreted as a verb or a noun without context.) This is
+ better for things such as database table/column names, which is what
+ this module is primarily for.
This behavior can be switched with the variable $prefer_nouns. The
default is 1.
@@ -47,53 +51,47 @@
}
OPTIONAL EXPORTS
+
"to_PL", "to_S"
SUBROUTINES
- to_PL
+
+ to_PL
+
Attempts to pluralizes a phrase unless already plural.
- to_S
+ to_S
+
Attempts to singularize a phrase unless already singular.
BUGS
+
Please report any bugs or feature requests to
- "bug-lingua-en-inflect-phrase at rt.cpan.org", or through the web
+ bug-lingua-en-inflect-phrase at rt.cpan.org, or through the web
interface at
- <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Lingua-EN-Inflect-Phrase
- >. I will be notified, and then you'll automatically be notified of
+ http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Lingua-EN-Inflect-Phrase.
+ I will be notified, and then you'll automatically be notified of
progress on your bug as I make changes.
-SUPPORT
- More information at:
-
- * RT: CPAN's request tracker
-
- <http://rt.cpan.org/NoAuth/Bugs.html?Dist=Lingua-EN-Inflect-Phrase>
-
- * AnnoCPAN: Annotated CPAN documentation
-
- <http://annocpan.org/dist/Lingua-EN-Inflect-Phrase>
-
- * CPAN Ratings
-
- <http://cpanratings.perl.org/d/Lingua-EN-Inflect-Phrase>
-
- * Search CPAN
-
- <http://search.cpan.org/dist/Lingua-EN-Inflect-Phrase/>
-
REPOSITORY
+
git clone git://github.com/rkitover/lingua-en-inflect-phrase.git
lingua-en-inflect-phrase
SEE ALSO
+
Lingua::EN::Inflect, Lingua::EN::Inflect::Number, Lingua::EN::Tagger
AUTHOR
- Rafael Kitover <[email protected]>
+
+ rkitover: Rafael Kitover <[email protected]>
+
+CONTRIBUTORS
+
+ zakame: Zak B. Elep <[email protected]>
LICENSE AND COPYRIGHT
- Copyright (c) 2010 Rafael Kitover ([email protected]).
+
+ Copyright (c) 2018 Rafael Kitover ([email protected]).
This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-EN-Inflect-Phrase-0.18/dist.ini
new/Lingua-EN-Inflect-Phrase-0.19/dist.ini
--- old/Lingua-EN-Inflect-Phrase-0.18/dist.ini 2012-12-27 06:09:58.000000000
+0100
+++ new/Lingua-EN-Inflect-Phrase-0.19/dist.ini 2018-01-31 19:59:56.000000000
+0100
@@ -2,9 +2,12 @@
author = Rafael Kitover <[email protected]>
license = Perl_5
copyright_holder = Rafael Kitover
-copyright_year = 2012
+copyright_year = 2018
[@AVAR]
dist = Lingua-EN-Inflect-Phrase
bugtracker = rt
github_user = rkitover
+install_command = cpanm .
+
+[ContributorsFromPod]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Lingua-EN-Inflect-Phrase-0.18/lib/Lingua/EN/Inflect/Phrase.pm
new/Lingua-EN-Inflect-Phrase-0.19/lib/Lingua/EN/Inflect/Phrase.pm
--- old/Lingua-EN-Inflect-Phrase-0.18/lib/Lingua/EN/Inflect/Phrase.pm
2012-12-27 06:09:58.000000000 +0100
+++ new/Lingua-EN-Inflect-Phrase-0.19/lib/Lingua/EN/Inflect/Phrase.pm
2018-01-31 19:59:56.000000000 +0100
@@ -1,11 +1,6 @@
package Lingua::EN::Inflect::Phrase;
-BEGIN {
- $Lingua::EN::Inflect::Phrase::AUTHORITY = 'cpan:AVAR';
-}
-{
- $Lingua::EN::Inflect::Phrase::VERSION = '0.18';
-}
-
+our $AUTHORITY = 'cpan:AVAR';
+$Lingua::EN::Inflect::Phrase::VERSION = '0.19';
use strict;
use warnings;
use Exporter 'import';
@@ -83,10 +78,10 @@
our $prefer_nouns = 1;
-my $MAYBE_NOUN = qr{(\S+)/(?:NNS?|CD|JJ)\b};
-my $MAYBE_NOUN_TAG = qr{/(?:NNS?|CD|JJ)\b};
-my $NOUN_OR_VERB = qr{(\S+)/(?:NNS?|CD|JJ|VB[A-Z]?)\b};
-my $NOUN_OR_VERB_TAG = qr{/(?:NNS?|CD|JJ|VB[A-Z]?)\b};
+my $MAYBE_NOUN = qr{(\S+)/(?:NN[PS]?|CD|JJ)\b};
+my $MAYBE_NOUN_TAG = qr{/(?:NN[PS]?|CD|JJ)\b};
+my $NOUN_OR_VERB = qr{(\S+)/(?:NN[PS]?|CD|JJ|VB[A-Z]?)\b};
+my $NOUN_OR_VERB_TAG = qr{/(?:NN[PS]?|CD|JJ|VB[A-Z]?)\b};
my $VERB_TAG = qr{/VB[A-z]?\b};
my $PREPOSITION_OR_CONJUNCTION_TAG = qr{/(?:CC|IN)\b};
@@ -120,6 +115,12 @@
elsif ($want_plural && lc($noun) eq 'two') {
return 'twos';
}
+ elsif ($noun =~ /^[A-Z].+ity\z/) {
+ return $want_plural ?
ucfirst(Lingua::EN::Inflect::Number::to_PL(lc($noun))) : $noun;
+ }
+ elsif ($noun =~ /^[A-Z].+ities\z/) {
+ return $want_plural ? $noun :
ucfirst(Lingua::EN::Inflect::Number::to_S(lc($noun)));
+ }
if ($want_plural && (not $is_plural)) {
return Lingua::EN::Inflect::Number::to_PL($noun);
@@ -338,30 +339,6 @@
will be notified, and then you'll automatically be notified of progress on your
bug as I make changes.
-=head1 SUPPORT
-
-More information at:
-
-=over 4
-
-=item * RT: CPAN's request tracker
-
-L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Lingua-EN-Inflect-Phrase>
-
-=item * AnnoCPAN: Annotated CPAN documentation
-
-L<http://annocpan.org/dist/Lingua-EN-Inflect-Phrase>
-
-=item * CPAN Ratings
-
-L<http://cpanratings.perl.org/d/Lingua-EN-Inflect-Phrase>
-
-=item * Search CPAN
-
-L<http://search.cpan.org/dist/Lingua-EN-Inflect-Phrase/>
-
-=back
-
=head1 REPOSITORY
git clone git://github.com/rkitover/lingua-en-inflect-phrase.git
lingua-en-inflect-phrase
@@ -372,11 +349,15 @@
=head1 AUTHOR
-Rafael Kitover <[email protected]>
+rkitover: Rafael Kitover <[email protected]>
+
+=head1 CONTRIBUTORS
+
+zakame: Zak B. Elep <[email protected]>
=head1 LICENSE AND COPYRIGHT
-Copyright (c) 2010 Rafael Kitover ([email protected]).
+Copyright (c) 2018 Rafael Kitover ([email protected]).
This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-EN-Inflect-Phrase-0.18/t/00-compile.t
new/Lingua-EN-Inflect-Phrase-0.19/t/00-compile.t
--- old/Lingua-EN-Inflect-Phrase-0.18/t/00-compile.t 2012-12-27
06:09:58.000000000 +0100
+++ new/Lingua-EN-Inflect-Phrase-0.19/t/00-compile.t 2018-01-31
19:59:56.000000000 +0100
@@ -1,73 +1,60 @@
-#!perl
-
+use 5.006;
use strict;
use warnings;
+# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.058
+
use Test::More;
+plan tests => 1 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
+
+my @module_files = (
+ 'Lingua/EN/Inflect/Phrase.pm'
+);
+
-use File::Find;
-use File::Temp qw{ tempdir };
+# no fake home requested
-my @modules;
-find(
- sub {
- return if $File::Find::name !~ /\.pm\z/;
- my $found = $File::Find::name;
- $found =~ s{^lib/}{};
- $found =~ s{[/\\]}{::}g;
- $found =~ s/\.pm$//;
- # nothing to skip
- push @modules, $found;
- },
- 'lib',
+my @switches = (
+ -d 'blib' ? '-Mblib' : '-Ilib',
);
-sub _find_scripts {
- my $dir = shift @_;
+use File::Spec;
+use IPC::Open3;
+use IO::Handle;
- my @found_scripts = ();
- find(
- sub {
- return unless -f;
- my $found = $File::Find::name;
- # nothing to skip
- open my $FH, '<', $_ or do {
- note( "Unable to open $found in ( $! ), skipping" );
- return;
- };
- my $shebang = <$FH>;
- return unless $shebang =~ /^#!.*?\bperl\b\s*$/;
- push @found_scripts, $found;
- },
- $dir,
- );
+open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!";
- return @found_scripts;
+my @warnings;
+for my $lib (@module_files)
+{
+ # see L<perlfaq8/How can I capture STDERR from an external command?>
+ my $stderr = IO::Handle->new;
+
+ diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} .
$str . q{'} }
+ $^X, @switches, '-e', "require q[$lib]"))
+ if $ENV{PERL_COMPILE_TEST_DEBUG};
+
+ my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e',
"require q[$lib]");
+ binmode $stderr, ':crlf' if $^O eq 'MSWin32';
+ my @_warnings = <$stderr>;
+ waitpid($pid, 0);
+ is($?, 0, "$lib loaded ok");
+
+ shift @_warnings if @_warnings and $_warnings[0] =~ /^Using .*\bblib/
+ and not eval { +require blib; blib->VERSION('1.01') };
+
+ if (@_warnings)
+ {
+ warn @_warnings;
+ push @warnings, @_warnings;
+ }
}
-my @scripts;
-do { push @scripts, _find_scripts($_) if -d $_ }
- for qw{ bin script scripts };
-my $plan = scalar(@modules) + scalar(@scripts);
-$plan ? (plan tests => $plan) : (plan skip_all => "no tests to run");
-{
- # fake home for cpan-testers
- # no fake requested ## local $ENV{HOME} = tempdir( CLEANUP => 1 );
+is(scalar(@warnings), 0, 'no warnings found')
+ or diag 'got warnings: ', ( Test::More->can('explain') ?
Test::More::explain(\@warnings) : join("\n", '', @warnings) ) if
$ENV{AUTHOR_TESTING};
- like( qx{ $^X -Ilib -e "require $_; print '$_ ok'" }, qr/^\s*$_ ok/s, "$_
loaded ok" )
- for sort @modules;
- SKIP: {
- eval "use Test::Script 1.05; 1;";
- skip "Test::Script needed to test script compilation",
scalar(@scripts) if $@;
- foreach my $file ( @scripts ) {
- my $script = $file;
- $script =~ s!.*/!!;
- script_compiles( $file, "$script script compiles" );
- }
- }
-}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-EN-Inflect-Phrase-0.18/t/author-pod-syntax.t
new/Lingua-EN-Inflect-Phrase-0.19/t/author-pod-syntax.t
--- old/Lingua-EN-Inflect-Phrase-0.18/t/author-pod-syntax.t 1970-01-01
01:00:00.000000000 +0100
+++ new/Lingua-EN-Inflect-Phrase-0.19/t/author-pod-syntax.t 2018-01-31
19:59:56.000000000 +0100
@@ -0,0 +1,15 @@
+#!perl
+
+BEGIN {
+ unless ($ENV{AUTHOR_TESTING}) {
+ print qq{1..0 # SKIP these tests are for testing by the author\n};
+ exit
+ }
+}
+
+# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests.
+use strict; use warnings;
+use Test::More;
+use Test::Pod 1.41;
+
+all_pod_files_ok();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-EN-Inflect-Phrase-0.18/t/basic.t
new/Lingua-EN-Inflect-Phrase-0.19/t/basic.t
--- old/Lingua-EN-Inflect-Phrase-0.18/t/basic.t 2012-12-27 06:09:58.000000000
+0100
+++ new/Lingua-EN-Inflect-Phrase-0.19/t/basic.t 2018-01-31 19:59:56.000000000
+0100
@@ -33,6 +33,10 @@
# fallback
test_phrase 'green', 'greens';
+# RT#118767
+test_phrase 'functionality', 'functionalities';
+test_phrase 'Functionality', 'Functionalities';
+
Test::NoWarnings::had_no_warnings;
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Lingua-EN-Inflect-Phrase-0.18/t/release-pod-syntax.t
new/Lingua-EN-Inflect-Phrase-0.19/t/release-pod-syntax.t
--- old/Lingua-EN-Inflect-Phrase-0.18/t/release-pod-syntax.t 2012-12-27
06:09:58.000000000 +0100
+++ new/Lingua-EN-Inflect-Phrase-0.19/t/release-pod-syntax.t 1970-01-01
01:00:00.000000000 +0100
@@ -1,15 +0,0 @@
-#!perl
-
-BEGIN {
- unless ($ENV{RELEASE_TESTING}) {
- require Test::More;
- Test::More::plan(skip_all => 'these tests are for release candidate
testing');
- }
-}
-
-use Test::More;
-
-eval "use Test::Pod 1.41";
-plan skip_all => "Test::Pod 1.41 required for testing POD" if $@;
-
-all_pod_files_ok();
++++++ cpanspec.yml ++++++
---
#description_paragraphs: 3
#description: |-
# override description from CPAN
#summary: override summary from CPAN
#no_testing: broken upstream
#sources:
# - source1
# - source2
#patches:
# foo.patch: -p1
# bar.patch:
#preamble: |-
# BuildRequires: gcc-c++
#post_prep: |-
# hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'`
# sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL
#post_build: |-
# rm unused.files
#post_install: |-
# sed on %{name}.files
#license: SUSE-NonFree
#skip_noarch: 1
#custom_build: |-
#./Build build flags=%{?_smp_mflags} --myflag
#custom_test: |-
#startserver && make test
#ignore_requires: Bizarre::Module
