Hello community, here is the log from the commit of package perl-Time-Period for openSUSE:Factory checked in at 2015-02-08 11:42:57 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Time-Period (Old) and /work/SRC/openSUSE:Factory/.perl-Time-Period.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Time-Period" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Time-Period/perl-Time-Period.changes 2013-07-31 17:24:46.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Time-Period.new/perl-Time-Period.changes 2015-02-08 11:42:59.000000000 +0100 @@ -1,0 +2,7 @@ +Sat Feb 7 16:22:59 UTC 2015 - [email protected] + +- updated to 1.25 + - Fixed a bug with matching week on Sundays + (https://rt.cpan.org/Public/Bug/Display.html?id=100850) + +------------------------------------------------------------------- Old: ---- Time-Period-1.24.tar.gz New: ---- Time-Period-1.25.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Time-Period.spec ++++++ --- /var/tmp/diff_new_pack.dcTs4Z/_old 2015-02-08 11:43:00.000000000 +0100 +++ /var/tmp/diff_new_pack.dcTs4Z/_new 2015-02-08 11:43:00.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Time-Period # -# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2015 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,7 +17,7 @@ Name: perl-Time-Period -Version: 1.24 +Version: 1.25 Release: 0 %define cpan_name Time-Period Summary: A Perl module to deal with time periods. @@ -29,7 +29,6 @@ BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros -#BuildRequires: perl(Time::Period) %{perl_requires} %description ++++++ Time-Period-1.24.tar.gz -> Time-Period-1.25.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Time-Period-1.24/LICENSE new/Time-Period-1.25/LICENSE --- old/Time-Period-1.24/LICENSE 2013-07-04 17:04:09.000000000 +0200 +++ new/Time-Period-1.25/LICENSE 2015-01-04 05:24:04.000000000 +0100 @@ -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. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Time-Period-1.24/MANIFEST new/Time-Period-1.25/MANIFEST --- old/Time-Period-1.24/MANIFEST 2013-07-04 17:04:09.000000000 +0200 +++ new/Time-Period-1.25/MANIFEST 2015-01-04 05:24:04.000000000 +0100 @@ -1,3 +1,4 @@ +# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.019. LICENSE MANIFEST META.yml diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Time-Period-1.24/META.yml new/Time-Period-1.25/META.yml --- old/Time-Period-1.24/META.yml 2013-07-04 17:04:09.000000000 +0200 +++ new/Time-Period-1.25/META.yml 2015-01-04 05:24:04.000000000 +0100 @@ -1,22 +1,22 @@ --- abstract: 'A Perl module to deal with time periods.' author: - - 'Patrick Ryan, Paul Boyd <[email protected]>' + - 'Patrick Ryan, Paul Boyd <[email protected]>' build_requires: - POSIX: 0 - Test::More: 0 - strict: 0 - warnings: 0 + POSIX: '0' + Test::More: '0' + strict: '0' + warnings: '0' configure_requires: - ExtUtils::MakeMaker: 6.30 + ExtUtils::MakeMaker: '6.30' dynamic_config: 0 -generated_by: 'Dist::Zilla version 4.300028, CPAN::Meta::Converter version 2.120921' +generated_by: 'Dist::Zilla version 5.019, CPAN::Meta::Converter version 2.140640' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 + version: '1.4' name: Time-Period requires: - Exporter: 0 - perl: 5.001 -version: 1.24 + Exporter: '0' + perl: '5.001' +version: '1.25' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Time-Period-1.24/Makefile.PL new/Time-Period-1.25/Makefile.PL --- old/Time-Period-1.24/Makefile.PL 2013-07-04 17:04:09.000000000 +0200 +++ new/Time-Period-1.25/Makefile.PL 2015-01-04 05:24:04.000000000 +0100 @@ -1,4 +1,5 @@ +# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.019. use strict; use warnings; @@ -10,13 +11,7 @@ my %WriteMakefileArgs = ( "ABSTRACT" => "A Perl module to deal with time periods.", - "AUTHOR" => "Patrick Ryan, Paul Boyd <pboyd\@dev3l.net>", - "BUILD_REQUIRES" => { - "POSIX" => 0, - "Test::More" => 0, - "strict" => 0, - "warnings" => 0 - }, + "AUTHOR" => "Patrick Ryan, Paul Boyd <boyd.paul\@gmail.com>", "CONFIGURE_REQUIRES" => { "ExtUtils::MakeMaker" => "6.30" }, @@ -27,24 +22,32 @@ "PREREQ_PM" => { "Exporter" => 0 }, - "VERSION" => "1.24", + "TEST_REQUIRES" => { + "POSIX" => 0, + "Test::More" => 0, + "strict" => 0, + "warnings" => 0 + }, + "VERSION" => "1.25", "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, + "POSIX" => 0, + "Test::More" => 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} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Time-Period-1.24/dist.ini new/Time-Period-1.25/dist.ini --- old/Time-Period-1.24/dist.ini 2013-07-04 17:04:09.000000000 +0200 +++ new/Time-Period-1.25/dist.ini 2015-01-04 05:24:04.000000000 +0100 @@ -1,11 +1,11 @@ name = Time-Period -author = Patrick Ryan, Paul Boyd <[email protected]> +author = Patrick Ryan, Paul Boyd <[email protected]> license = Perl_5 copyright_holder = Patrick Ryan copyright_year = 1997 -version = 1.24 +version = 1.25 [GatherDir] [PruneCruft] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Time-Period-1.24/lib/Time/Period.pm new/Time-Period-1.25/lib/Time/Period.pm --- old/Time-Period-1.24/lib/Time/Period.pm 2013-07-04 17:04:09.000000000 +0200 +++ new/Time-Period-1.25/lib/Time/Period.pm 2015-01-04 05:24:04.000000000 +0100 @@ -160,10 +160,15 @@ =head1 VERSION -1.24 +1.25 =head1 HISTORY + Version 1.25 + ------------ + - Fixed a bug with matching week on Sundays + (https://rt.cpan.org/Public/Bug/Display.html?id=100850) + Version 1.24 ------------ - Minor doc update. @@ -226,7 +231,7 @@ @ISA = qw(Exporter); @EXPORT = qw(inPeriod); -$VERSION = "1.24"; +$VERSION = "1.25"; sub inPeriod { @@ -430,7 +435,7 @@ for ($i = 1; $i <= $md; $i++) { # Itterate $i from 1 to $md. If $i happens to land on a Sunday, # increment $wk unless $i is also 1, which means its still week 0. - if ( (0 == $wd[$i]) && (1 != $md) ) { + if ( $wd[$i] == 0 && $i != 1 ) { $wk++; } } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Time-Period-1.24/t/02_weekday.t new/Time-Period-1.25/t/02_weekday.t --- old/Time-Period-1.24/t/02_weekday.t 2013-07-04 17:04:09.000000000 +0200 +++ new/Time-Period-1.25/t/02_weekday.t 2015-01-04 05:24:04.000000000 +0100 @@ -1,7 +1,7 @@ use strict; use warnings; -use Test::More tests => 26; +use Test::More tests => 27; use Time::Period; use POSIX; @@ -40,3 +40,6 @@ is(inPeriod($base_date, 'wd {6 - 17}'), -1, 'should return -1 for numeric days greater than 7 (right)'); is(inPeriod($base_date, 'wd {1 - 0}'), -1, 'should return -1 for numeric days less than 1 (right)'); is(inPeriod($base_date, 'wd {6 - _}'), -1, 'should return -1 for non-alphanumeric days (right)'); + +my $sunday = $base_date + $day; +is(inPeriod($sunday, 'wd {sunday}'), 1, 'should work for Sundays'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Time-Period-1.24/t/05_week.t new/Time-Period-1.25/t/05_week.t --- old/Time-Period-1.24/t/05_week.t 2013-07-04 17:04:09.000000000 +0200 +++ new/Time-Period-1.25/t/05_week.t 2015-01-04 05:24:04.000000000 +0100 @@ -1,7 +1,7 @@ use strict; use warnings; -use Test::More tests => 19; +use Test::More tests => 20; use Time::Period; use POSIX; @@ -33,3 +33,6 @@ is(inPeriod(0, 'wk {7}'), -1, 'should return -1 for week numbers greater than 6 (single)'); is(inPeriod(0, 'wk {7-1}'), -1, 'should return -1 for week numbers greater than 6 (left)'); is(inPeriod(0, 'wk {1-7}'), -1, 'should return -1 for week numbers greater than 6 (right)'); + +my $sunday = POSIX::mktime(0, 0, 12, 8, 5, 114); # 01/01/2011 00:00:00 (Saturday) +is(inPeriod($sunday, 'wk { 2 }'), 1, 'should be able to match the week when the day is Sunday'); -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
