Hello community, here is the log from the commit of package perl-Date-Calc for openSUSE:Factory checked in at 2015-04-25 21:16:27 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Date-Calc (Old) and /work/SRC/openSUSE:Factory/.perl-Date-Calc.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Date-Calc" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Date-Calc/perl-Date-Calc.changes 2015-01-05 04:44:29.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Date-Calc.new/perl-Date-Calc.changes 2015-04-25 21:16:28.000000000 +0200 @@ -1,0 +2,7 @@ +Thu Apr 16 19:56:35 UTC 2015 - [email protected] + +- updated to 6.4 + see /usr/share/doc/packages/perl-Date-Calc/CHANGES.txt +- remove upstream Date-Calc-6.3.diff + +------------------------------------------------------------------- Old: ---- Date-Calc-6.3.diff Date-Calc-6.3.tar.gz New: ---- Date-Calc-6.4.tar.gz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Date-Calc.spec ++++++ --- /var/tmp/diff_new_pack.02Eo7q/_old 2015-04-25 21:16:29.000000000 +0200 +++ /var/tmp/diff_new_pack.02Eo7q/_new 2015-04-25 21:16:29.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Date-Calc # -# Copyright (c) 2015 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,81 +17,50 @@ Name: perl-Date-Calc -BuildRequires: perl(Bit::Vector) >= 7.1 -BuildRequires: perl(Carp::Clan) >= 6.04 -Requires: perl(Bit::Vector) >= 7.1 -Requires: perl(Carp::Clan) >= 6.04 -BuildRequires: perl-macros -Version: 6.3 +Version: 6.4 Release: 0 -Provides: DateCalc -Provides: perl_dc -Obsoletes: perl_dc -Url: http://search.cpan.org/perldoc?Date::Calc -Summary: Perl Date-Calc Module -License: Artistic-1.0 or GPL-2.0+ +%define cpan_name Date-Calc +Summary: Gregorian calendar date calculations +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl -Source: http://search.cpan.org/CPAN/authors/id/S/ST/STBEY/Date-Calc-%{version}.tar.gz -Patch: Date-Calc-%{version}.diff +Url: http://search.cpan.org/dist/Date-Calc/ +Source0: http://www.cpan.org/authors/id/S/ST/STBEY/%{cpan_name}-%{version}.tar.gz +Source1: cpanspec.yml +BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build +BuildRequires: perl +BuildRequires: perl-macros +BuildRequires: perl(Bit::Vector) >= 7.4 +BuildRequires: perl(Carp::Clan) >= 6.04 +Requires: perl(Bit::Vector) >= 7.4 +Requires: perl(Carp::Clan) >= 6.04 +Recommends: perl(Date::Calc::XS) >= 6.4 %{perl_requires} %description -This package consists of a C library and a Perl module (which uses the -C library, internally) for all kinds of date calculations based on the -Gregorian calendar (the one used in all western countries today), -thereby complying with all relevant norms and standards: ISO/R -2015-1971, DIN 1355 and, to some extent, ISO 8601 (where applicable). - -(See also http://www.engelschall.com/u/sb/download/Date-Calc/DIN1355/ -for a scan of part of the "DIN 1355" document (in German)). - -The module of course handles year numbers of 2000 and above correctly -("Year 2000" or "Y2K" compliance) -- actually all year numbers from 1 -to the largest positive integer representable on your system (which is -at least 32767) can be dealt with. - -Note that this package EXTRAPOLATES the Gregorian calendar BACK until -the year 1 A.D. -- even though the Gregorian calendar was only adopted -in 1582 by most (not all) European countries, in obedience to the -corresponding decree of catholic pope Gregor I in that year. - -Some (mainly protestant) countries continued to use the Julian calendar -(used until then) until as late as the beginning of the 20th century. - -Finally, note that this package is not intended to do everything you -could ever imagine automagically for you; it is rather intended to -serve as a toolbox (in the best of UNIX spirit and traditions) which -should, however, always get you where you want to go. +* * + + 'use Date::Calc qw( Days_in_Year Days_in_Month ... );' + +* * %prep -%setup -n Date-Calc-%{version} -q -%patch -p1 +%setup -q -n %{cpan_name}-%{version} %build -perl Makefile.PL OPTIMIZE="$RPM_OPT_FLAGS -Wall" -make %{?_smp_mflags} +%{__perl} Makefile.PL INSTALLDIRS=vendor +%{__make} %{?_smp_mflags} %check -make test +%{__make} test %install -make DESTDIR=$RPM_BUILD_ROOT install_vendor +%perl_make_install %perl_process_packlist -chmod -R u+w *.txt -for i in `ls *.txt`; do mv $i `basename $i .txt`; done -rm -rf tools/compile.bat -rm -rf $RPM_BUILD_ROOT%{_mandir}/man3/Carp::* -rm -rf $RPM_BUILD_ROOT%{perl_vendorarch}/Carp - -%clean -rm -rf $RPM_BUILD_ROOT - -%files -%defattr(-, root, root) -%doc license README CREDITS CHANGES MANIFEST -%doc %{_mandir}/man?/* -%{perl_vendorarch}/auto/Date/ -%{perl_vendorlib}/Date/ +%perl_gen_filelist + +%files -f %{name}.files +%defattr(-,root,root,755) +%doc CHANGES.txt CREDITS.txt README.txt %changelog ++++++ Date-Calc-6.3.tar.gz -> Date-Calc-6.4.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/CHANGES.txt new/Date-Calc-6.4/CHANGES.txt --- old/Date-Calc-6.3/CHANGES.txt 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/CHANGES.txt 2015-03-07 21:06:56.000000000 +0100 @@ -1,15 +1,21 @@ ==================================== - Package "Date::Calc" Version 6.3 + Package "Date::Calc" Version 6.4 ==================================== - Copyright (c) 1995 - 2009 by Steffen Beyer. + Copyright (c) 1995 - 2015 by Steffen Beyer. All rights reserved. Version history: ---------------- +Version 6.4 07.03.2015 + + + Fixed t/f016.t, t/f027.t and t/f028.t which started failing on 01/01/2015 + + Fixed t/f035.t which gave a warning "Unescaped left brace in regex is deprecated" + with Perl 5.21.x + Version 6.3 31.10.2009 + Changed "Mktime()" to use "POSIX::mktime()" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/CREDITS.txt new/Date-Calc-6.4/CREDITS.txt --- old/Date-Calc-6.3/CREDITS.txt 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/CREDITS.txt 2015-03-07 21:06:56.000000000 +0100 @@ -1,9 +1,9 @@ ==================================== - Package "Date::Calc" Version 6.3 + Package "Date::Calc" Version 6.4 ==================================== - Copyright (c) 1995 - 2009 by Steffen Beyer. + Copyright (c) 1995 - 2015 by Steffen Beyer. All rights reserved. @@ -465,4 +465,18 @@ "Date::Calc::XS::Mktime()" and "POSIX::mktime()", and for running a test script for me! +Thanks to Florian Schlichting <[email protected]> - he fixed some typos +in several POD files (https://rt.cpan.org/Ticket/Display.html?id=94687). + +Thanks to Slaven Rezic and several other people who notified me about +the failing test suite concerning the moving window function in the +Decode_Date_X() functions (https://rt.cpan.org/Ticket/Display.html?id=101232). + +Thanks to Michael B. Rash <[email protected]> for the suggested fix +for the eternal problem with the definition of a "boolean" type in ToolBox.h +(https://rt.cpan.org/Ticket/Display.html?id=102157). + +Thanks a lot to Slaven Rezic for notifying me about the new warnings with Perl 5.21.x: +"Unescaped left brace in regex is deprecated" (https://rt.cpan.org/Ticket/Display.html?id=102266). + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/MANIFEST new/Date-Calc-6.4/MANIFEST --- old/Date-Calc-6.3/MANIFEST 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/MANIFEST 2015-03-07 21:06:56.000000000 +0100 @@ -70,3 +70,4 @@ t/m012.t t/m013.t META.yml Module 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/Date-Calc-6.3/META.json new/Date-Calc-6.4/META.json --- old/Date-Calc-6.3/META.json 1970-01-01 01:00:00.000000000 +0100 +++ new/Date-Calc-6.4/META.json 2015-03-07 21:06:56.000000000 +0100 @@ -0,0 +1,45 @@ +{ + "abstract" : "Gregorian calendar date calculations", + "author" : [ + "Steffen Beyer <[email protected]>" + ], + "dynamic_config" : 1, + "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.140640", + "license" : [ + "perl_5" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, + "version" : "2" + }, + "name" : "Date-Calc", + "no_index" : { + "directory" : [ + "t", + "inc" + ] + }, + "prereqs" : { + "build" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "runtime" : { + "recommends" : { + "Date::Calc::XS" : "6.4" + }, + "requires" : { + "Bit::Vector" : "7.4", + "Carp::Clan" : "6.04" + } + } + }, + "release_status" : "stable", + "version" : "6.4" +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/META.yml new/Date-Calc-6.4/META.yml --- old/Date-Calc-6.3/META.yml 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/META.yml 2015-03-07 21:06:56.000000000 +0100 @@ -1,15 +1,25 @@ ---- #YAML:1.0 -name: Date-Calc -version: 6.3 -abstract: Gregorian calendar date calculations -license: perl -author: - - Steffen Beyer <[email protected]> -generated_by: ExtUtils::MakeMaker version 6.42 -distribution_type: module -requires: - Bit::Vector: 7.1 - Carp::Clan: 6.04 +--- +abstract: 'Gregorian calendar date calculations' +author: + - 'Steffen Beyer <[email protected]>' +build_requires: + ExtUtils::MakeMaker: '0' +configure_requires: + ExtUtils::MakeMaker: '0' +dynamic_config: 1 +generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.140640' +license: perl meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.3.html - version: 1.3 + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: '1.4' +name: Date-Calc +no_index: + directory: + - t + - inc +recommends: + Date::Calc::XS: '6.4' +requires: + Bit::Vector: '7.4' + Carp::Clan: '6.04' +version: '6.4' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/Makefile.PL new/Date-Calc-6.4/Makefile.PL --- old/Date-Calc-6.3/Makefile.PL 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/Makefile.PL 2015-03-07 21:06:56.000000000 +0100 @@ -2,7 +2,7 @@ ############################################################################### ## ## -## Copyright (c) 1995 - 2009 by Steffen Beyer. ## +## Copyright (c) 1995 - 2015 by Steffen Beyer. ## ## All rights reserved. ## ## ## ## This package is free software; you can redistribute it ## @@ -35,12 +35,12 @@ 'AUTHOR' => 'Steffen Beyer <[email protected]>', 'PREREQ_PM' => { 'Carp::Clan' => 6.04, - 'Bit::Vector' => 7.1 + 'Bit::Vector' => 7.4 }, 'META_MERGE' => { 'recommends' => { - 'Date::Calc::XS' => 6.2 + 'Date::Calc::XS' => 6.4 } }, 'dist' => { COMPRESS => "gzip -9", SUFFIX => "gz" }, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/README.txt new/Date-Calc-6.4/README.txt --- old/Date-Calc-6.3/README.txt 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/README.txt 2015-03-07 21:06:56.000000000 +0100 @@ -1,5 +1,5 @@ ==================================== - Package "Date::Calc" Version 6.3 + Package "Date::Calc" Version 6.4 ==================================== @@ -19,12 +19,12 @@ take those into account. -What's new in version 6.3: +What's new in version 6.4: -------------------------- - + Changed "Mktime()" to use "POSIX::mktime()" - + Fixed the bug that "Date::Calc::PP" was never tested - when "Date::Calc::XS" is installed + + Fixed t/f016.t, t/f027.t and t/f028.t which started failing on 01/01/2015 + + Fixed t/f035.t which gave a warning "Unescaped left brace in regex is deprecated" + with Perl 5.21.x Copyright & License: @@ -32,7 +32,7 @@ This package with all its parts is -Copyright (c) 1995 - 2009 by Steffen Beyer. +Copyright (c) 1995 - 2015 by Steffen Beyer. All rights reserved. This package is free software; you can use, modify and redistribute diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/lib/Date/Calc/Object.pm new/Date-Calc-6.4/lib/Date/Calc/Object.pm --- old/Date-Calc-6.3/lib/Date/Calc/Object.pm 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/lib/Date/Calc/Object.pm 2015-03-07 21:06:56.000000000 +0100 @@ -1,7 +1,7 @@ ############################################################################### ## ## -## Copyright (c) 2000 - 2009 by Steffen Beyer. ## +## Copyright (c) 2000 - 2015 by Steffen Beyer. ## ## All rights reserved. ## ## ## ## This package is free software; you can redistribute it ## @@ -38,7 +38,7 @@ %EXPORT_TAGS = (all => [@Date::Calc::EXPORT_OK], aux => [@AUXILIARY], ALL => [@EXPORT_OK]); - $VERSION = '6.3'; + $VERSION = '6.4'; Date::Calc->import(@Date::Calc::EXPORT,@Date::Calc::EXPORT_OK); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/lib/Date/Calc/Object.pod new/Date-Calc-6.4/lib/Date/Calc/Object.pod --- old/Date-Calc-6.3/lib/Date/Calc/Object.pod 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/lib/Date/Calc/Object.pod 2015-03-07 21:06:56.000000000 +0100 @@ -1306,7 +1306,7 @@ =head1 VERSION -This man page documents "Date::Calc::Object" version 6.3. +This man page documents "Date::Calc::Object" version 6.4. =head1 AUTHOR @@ -1316,7 +1316,7 @@ =head1 COPYRIGHT -Copyright (c) 2000 - 2009 by Steffen Beyer. All rights reserved. +Copyright (c) 2000 - 2015 by Steffen Beyer. All rights reserved. =head1 LICENSE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/lib/Date/Calc/PP.pm new/Date-Calc-6.4/lib/Date/Calc/PP.pm --- old/Date-Calc-6.3/lib/Date/Calc/PP.pm 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/lib/Date/Calc/PP.pm 2015-03-07 21:06:56.000000000 +0100 @@ -1,7 +1,7 @@ ############################################################################### ## ## -## Copyright (c) 1995 - 2009 by Steffen Beyer. ## +## Copyright (c) 1995 - 2015 by Steffen Beyer. ## ## All rights reserved. ## ## ## ## This package is free software; you can redistribute it ## @@ -106,7 +106,7 @@ ## ## ################################################## -$VERSION = '6.3'; +$VERSION = '6.4'; sub Version { @@ -387,7 +387,7 @@ ############################################################################### ## ## -## Copyright (c) 1995 - 2009 by Steffen Beyer. ## +## Copyright (c) 1995 - 2015 by Steffen Beyer. ## ## All rights reserved. ## ## ## ## This package is free software; you can redistribute it ## diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/lib/Date/Calc/PP.pod new/Date-Calc-6.4/lib/Date/Calc/PP.pod --- old/Date-Calc-6.3/lib/Date/Calc/PP.pod 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/lib/Date/Calc/PP.pod 2015-03-07 21:06:56.000000000 +0100 @@ -19,7 +19,7 @@ =head1 VERSION -This man page documents "Date::Calc::PP" version 6.3. +This man page documents "Date::Calc::PP" version 6.4. =head1 AUTHOR @@ -29,7 +29,7 @@ =head1 COPYRIGHT -Copyright (c) 1995 - 2009 by Steffen Beyer. All rights reserved. +Copyright (c) 1995 - 2015 by Steffen Beyer. All rights reserved. =head1 LICENSE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/lib/Date/Calc.pm new/Date-Calc-6.4/lib/Date/Calc.pm --- old/Date-Calc-6.3/lib/Date/Calc.pm 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/lib/Date/Calc.pm 2015-03-07 21:06:56.000000000 +0100 @@ -1,7 +1,7 @@ ############################################################################### ## ## -## Copyright (c) 1995 - 2009 by Steffen Beyer. ## +## Copyright (c) 1995 - 2015 by Steffen Beyer. ## ## All rights reserved. ## ## ## ## This package is free software; you can redistribute it ## @@ -50,7 +50,7 @@ ## ## ################################################## -$VERSION = '6.3'; +$VERSION = '6.4'; sub Version { return $VERSION; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/lib/Date/Calc.pod new/Date-Calc-6.4/lib/Date/Calc.pod --- old/Date-Calc-6.3/lib/Date/Calc.pod 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/lib/Date/Calc.pod 2015-03-07 21:06:56.000000000 +0100 @@ -3268,7 +3268,7 @@ =head1 VERSION -This man page documents "Date::Calc" version 6.3. +This man page documents "Date::Calc" version 6.4. =head1 AUTHOR @@ -3278,7 +3278,7 @@ =head1 COPYRIGHT -Copyright (c) 1995 - 2009 by Steffen Beyer. All rights reserved. +Copyright (c) 1995 - 2015 by Steffen Beyer. All rights reserved. =head1 LICENSE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/lib/Date/Calendar/Profiles.pm new/Date-Calc-6.4/lib/Date/Calendar/Profiles.pm --- old/Date-Calc-6.3/lib/Date/Calendar/Profiles.pm 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/lib/Date/Calendar/Profiles.pm 2015-03-07 21:06:56.000000000 +0100 @@ -1,7 +1,7 @@ ############################################################################### ## ## -## Copyright (c) 2000 - 2009 by Steffen Beyer. ## +## Copyright (c) 2000 - 2015 by Steffen Beyer. ## ## All rights reserved. ## ## ## ## This package is free software; you can redistribute it ## @@ -35,7 +35,7 @@ &Advent ); -$VERSION = '6.3'; +$VERSION = '6.4'; use Date::Calc qw(:all); use Carp::Clan qw(^Date::); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/lib/Date/Calendar/Profiles.pod new/Date-Calc-6.4/lib/Date/Calendar/Profiles.pod --- old/Date-Calc-6.3/lib/Date/Calendar/Profiles.pod 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/lib/Date/Calendar/Profiles.pod 2015-03-07 21:06:56.000000000 +0100 @@ -47,14 +47,17 @@ for more instructions on how to do this, and take the profiles from this module as examples. -Please let me know of any errors in these profiles, and please -send me your own profiles if you'd like to see them included in -the next release of this module! Thank you! - -(But please, only use the ISO-Latin-1 character set whenever -possible, since my module doesn't support any other character -sets yet, or at least tell me which character set you used -so I can document this in this manual page. Thank you!) +I intend not to make any fixes to any of the calendar profiles +in this module anymore unless there are VERY compelling reasons +to do so. These profiles are merely meant as examples. + +The suggested way of using these profiles is to copy them to +your own code and then to modify them as needed. Otherwise +many people could be negatively affected if I made any changes +to a profile someone has been using for years. + +Any improvements are therefore left as an exercise +to the inclined reader. =head1 DESCRIPTION @@ -542,7 +545,7 @@ =head1 VERSION -This man page documents "Date::Calendar::Profiles" version 6.3. +This man page documents "Date::Calendar::Profiles" version 6.4. =head1 AUTHOR @@ -552,7 +555,7 @@ =head1 COPYRIGHT -Copyright (c) 2000 - 2009 by Steffen Beyer. All rights reserved. +Copyright (c) 2000 - 2015 by Steffen Beyer. All rights reserved. =head1 LICENSE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/lib/Date/Calendar/Year.pm new/Date-Calc-6.4/lib/Date/Calendar/Year.pm --- old/Date-Calc-6.3/lib/Date/Calendar/Year.pm 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/lib/Date/Calendar/Year.pm 2015-03-07 21:06:56.000000000 +0100 @@ -1,7 +1,7 @@ ############################################################################### ## ## -## Copyright (c) 2000 - 2009 by Steffen Beyer. ## +## Copyright (c) 2000 - 2015 by Steffen Beyer. ## ## All rights reserved. ## ## ## ## This package is free software; you can redistribute it ## @@ -25,7 +25,7 @@ %EXPORT_TAGS = (all => [@EXPORT_OK]); -$VERSION = '6.3'; +$VERSION = '6.4'; use Bit::Vector; use Carp::Clan qw(^Date::); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/lib/Date/Calendar/Year.pod new/Date-Calc-6.4/lib/Date/Calendar/Year.pod --- old/Date-Calc-6.3/lib/Date/Calendar/Year.pod 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/lib/Date/Calendar/Year.pod 2015-03-07 21:06:56.000000000 +0100 @@ -345,7 +345,7 @@ can be queried with the "labels()" and "search()" methods, and appears when printing a calendar, for instance. -The character ":" (mnemonic: divided into two halfs) specifies +The character ":" (mnemonic: divided into two halves) specifies that the date in question is only a "half" holiday, i.e., you only get half a day off instead of a full day. Some companies have this sort of thing. C<:-)> @@ -855,7 +855,7 @@ =head1 VERSION -This man page documents "Date::Calendar::Year" version 6.3. +This man page documents "Date::Calendar::Year" version 6.4. =head1 AUTHOR @@ -865,7 +865,7 @@ =head1 COPYRIGHT -Copyright (c) 2000 - 2009 by Steffen Beyer. All rights reserved. +Copyright (c) 2000 - 2015 by Steffen Beyer. All rights reserved. =head1 LICENSE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/lib/Date/Calendar.pm new/Date-Calc-6.4/lib/Date/Calendar.pm --- old/Date-Calc-6.3/lib/Date/Calendar.pm 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/lib/Date/Calendar.pm 2015-03-07 21:06:56.000000000 +0100 @@ -1,7 +1,7 @@ ############################################################################### ## ## -## Copyright (c) 2000 - 2009 by Steffen Beyer. ## +## Copyright (c) 2000 - 2015 by Steffen Beyer. ## ## All rights reserved. ## ## ## ## This package is free software; you can redistribute it ## @@ -23,7 +23,7 @@ @EXPORT_OK = qw(); -$VERSION = '6.3'; +$VERSION = '6.4'; use Carp::Clan qw(^Date::); use Date::Calc::Object qw(:ALL); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/lib/Date/Calendar.pod new/Date-Calc-6.4/lib/Date/Calendar.pod --- old/Date-Calc-6.3/lib/Date/Calendar.pod 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/lib/Date/Calendar.pod 2015-03-07 21:06:56.000000000 +0100 @@ -398,7 +398,7 @@ which your profile contains "half" holidays, or when you add or subtract fractions of a day. -Sometimes it is not possible to accomodate the requested number +Sometimes it is not possible to accommodate the requested number of work days, and a rest remains. This rest can currently only assume the value "0.0" (zero), @@ -576,7 +576,7 @@ =head1 VERSION -This man page documents "Date::Calendar" version 6.3. +This man page documents "Date::Calendar" version 6.4. =head1 AUTHOR @@ -586,7 +586,7 @@ =head1 COPYRIGHT -Copyright (c) 2000 - 2009 by Steffen Beyer. All rights reserved. +Copyright (c) 2000 - 2015 by Steffen Beyer. All rights reserved. =head1 LICENSE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/t/f000.t new/Date-Calc-6.4/t/f000.t --- old/Date-Calc-6.3/t/f000.t 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/t/f000.t 2015-03-07 21:06:56.000000000 +0100 @@ -59,11 +59,11 @@ {print "ok $n\n";} else {print "not ok $n\n";} $n++; -if ($Date::Calc::VERSION eq '6.3') +if ($Date::Calc::VERSION eq '6.4') {print "ok $n\n";} else {print "not ok $n\n";} $n++; -if (&Date::Calc::Version() eq '6.3') +if (&Date::Calc::Version() eq '6.4') {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -73,19 +73,19 @@ if ($Date::Calc::XS_OK || 0) { - if ($Date::Calc::XS::VERSION >= '6.2') + if ($Date::Calc::XS::VERSION >= '6.4') {print "ok $n\n";} else {print "not ok $n\n";} $n++; - if (&Date::Calc::XS::Version() >= '6.2') + if (&Date::Calc::XS::Version() >= '6.4') {print "ok $n\n";} else {print "not ok $n\n";} $n++; } else { - if ($Date::Calc::PP::VERSION eq '6.3') + if ($Date::Calc::PP::VERSION eq '6.4') {print "ok $n\n";} else {print "not ok $n\n";} $n++; - if (&Date::Calc::PP::Version() eq '6.3') + if (&Date::Calc::PP::Version() eq '6.4') {print "ok $n\n";} else {print "not ok $n\n";} $n++; } @@ -99,7 +99,7 @@ {print "ok $n\n";} else {print "not ok $n\n";} $n++; -if ($Date::Calc::Object::VERSION eq '6.3') +if ($Date::Calc::Object::VERSION eq '6.4') {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -112,7 +112,7 @@ {print "ok $n\n";} else {print "not ok $n\n";} $n++; -if ($Date::Calendar::Profiles::VERSION eq '6.3') +if ($Date::Calendar::Profiles::VERSION eq '6.4') {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -135,7 +135,7 @@ {print "ok $n\n";} else {print "not ok $n\n";} $n++; -if ($Date::Calendar::Year::VERSION eq '6.3') +if ($Date::Calendar::Year::VERSION eq '6.4') {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -148,7 +148,7 @@ {print "ok $n\n";} else {print "not ok $n\n";} $n++; -if ($Date::Calendar::VERSION eq '6.3') +if ($Date::Calendar::VERSION eq '6.4') {print "ok $n\n";} else {print "not ok $n\n";} $n++; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/t/f016.t new/Date-Calc-6.4/t/f016.t --- old/Date-Calc-6.3/t/f016.t 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/t/f016.t 2015-03-07 21:06:56.000000000 +0100 @@ -17,19 +17,19 @@ $n = 1; if ((($year,$mm,$dd) = Decode_Date_EU("3.1.64")) && -($year==1964)&&($mm==1)&&($dd==3)) +(int($year/100)>19)&&($year%100==64)&&($mm==1)&&($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU("3 1 64")) && -($year==1964)&&($mm==1)&&($dd==3)) +(int($year/100)>19)&&($year%100==64)&&($mm==1)&&($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU("03.01.64")) && -($year==1964)&&($mm==1)&&($dd==3)) +(int($year/100)>19)&&($year%100==64)&&($mm==1)&&($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU("03/01/64")) && -($year==1964)&&($mm==1)&&($dd==3)) +(int($year/100)>19)&&($year%100==64)&&($mm==1)&&($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU("3. Ene 1964",4)) && @@ -37,11 +37,11 @@ {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU("Geburtstag: 3. Januar '64 in Backnang/W�rttemberg",3)) && -($year==1964)&&($mm==1)&&($dd==3)) +(int($year/100)>19)&&($year%100==64)&&($mm==1)&&($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU("03-Jan-64")) && -($year==1964)&&($mm==1)&&($dd==3)) +(int($year/100)>19)&&($year%100==64)&&($mm==1)&&($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU("3.Jan1964",6)) && @@ -49,19 +49,19 @@ {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU("3Jan64",0)) && -($year==1964)&&($mm==1)&&($dd==3)) +(int($year/100)>19)&&($year%100==64)&&($mm==1)&&($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU("030164")) && -($year==1964)&&($mm==1)&&($dd==3)) +(int($year/100)>19)&&($year%100==64)&&($mm==1)&&($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU("3ja64")) && -($year==1964)&&($mm==1)&&($dd==3)) +(int($year/100)>19)&&($year%100==64)&&($mm==1)&&($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU("3164")) && -($year==1964)&&($mm==1)&&($dd==3)) +(int($year/100)>19)&&($year%100==64)&&($mm==1)&&($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -74,15 +74,15 @@ $n++; if ((($year,$mm,$dd) = Decode_Date_US("1 3 64")) && -($year==1964)&&($mm==1)&&($dd==3)) +(int($year/100)>19)&&($year%100==64)&&($mm==1)&&($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US("01/03/64")) && -($year==1964)&&($mm==1)&&($dd==3)) +(int($year/100)>19)&&($year%100==64)&&($mm==1)&&($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US("Jan 3 '64")) && -($year==1964)&&($mm==1)&&($dd==3)) +(int($year/100)>19)&&($year%100==64)&&($mm==1)&&($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US("Jan 3 1964")) && @@ -98,15 +98,15 @@ {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US("Jan364")) && -($year==1964)&&($mm==1)&&($dd==3)) +(int($year/100)>19)&&($year%100==64)&&($mm==1)&&($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US("ja364")) && -($year==1964)&&($mm==1)&&($dd==3)) +(int($year/100)>19)&&($year%100==64)&&($mm==1)&&($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US("1364")) && -($year==1964)&&($mm==1)&&($dd==3)) +(int($year/100)>19)&&($year%100==64)&&($mm==1)&&($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/t/f027.t new/Date-Calc-6.4/t/f027.t --- old/Date-Calc-6.3/t/f027.t 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/t/f027.t 2015-03-07 21:06:56.000000000 +0100 @@ -43,47 +43,47 @@ $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_1364_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_01364_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_001364_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_10364_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_010364_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_0010364_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_110364_")) && -($year==1964) && ($mm==11) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==11) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_0110364_")) && -($year==1964) && ($mm==11) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==11) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_00110364_")) && -($year==1964) && ($mm==11) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==11) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -118,7 +118,7 @@ $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_1_3_64_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -128,22 +128,22 @@ $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_jan_3_64_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_Jan_3_64_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_jAN_3_64_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_January_3_64_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -157,32 +157,32 @@ $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_Jan364_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_Jan0364_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_Jan00364_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_Jan2264_")) && -($year==1964) && ($mm==1) && ($dd==22)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==22)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_Jan02264_",0)) && -($year==1964) && ($mm==1) && ($dd==22)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==22)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_Jan002264_",'')) && -($year==1964) && ($mm==1) && ($dd==22)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==22)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -225,12 +225,12 @@ $n++; if ((($year,$mm,$dd) = Decode_Date_US2("x000001x000003x000064x")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_US2("_ja_000003x000064x")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/t/f028.t new/Date-Calc-6.4/t/f028.t --- old/Date-Calc-6.3/t/f028.t 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/t/f028.t 2015-03-07 21:06:56.000000000 +0100 @@ -43,47 +43,47 @@ $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_3164_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_03164_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_003164_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_30164_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_030164_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_0030164_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_110364_")) && -($year==1964) && ($mm==3) && ($dd==11)) +(int($year/100)>19) && ($year%100==64) && ($mm==3) && ($dd==11)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_0110364_")) && -($year==1964) && ($mm==3) && ($dd==11)) +(int($year/100)>19) && ($year%100==64) && ($mm==3) && ($dd==11)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_00110364_")) && -($year==1964) && ($mm==3) && ($dd==11)) +(int($year/100)>19) && ($year%100==64) && ($mm==3) && ($dd==11)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -118,7 +118,7 @@ $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_3_1_64_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -128,22 +128,22 @@ $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_3_jan_64_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_3_Jan_64_",0)) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_3_jAN_64_",1)) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_3-JAN-64_",2)) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -158,7 +158,7 @@ $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_000003-Jan-000064_",undef)) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -168,7 +168,7 @@ $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_3_ja_64_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -177,22 +177,22 @@ $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_3ja64_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_03ja64_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_003ja64_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("_000003ja000064_")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -225,12 +225,12 @@ $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("x000003x000001x000064x")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; if ((($year,$mm,$dd) = Decode_Date_EU2("x000003_ja_000064x")) && -($year==1964) && ($mm==1) && ($dd==3)) +(int($year/100)>19) && ($year%100==64) && ($mm==1) && ($dd==3)) {print "ok $n\n";} else {print "not ok $n\n";} $n++; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Date-Calc-6.3/t/f035.t new/Date-Calc-6.4/t/f035.t --- old/Date-Calc-6.3/t/f035.t 2009-10-31 07:53:01.000000000 +0100 +++ new/Date-Calc-6.4/t/f035.t 2015-03-07 21:06:56.000000000 +0100 @@ -108,7 +108,7 @@ eval { &{*{$main::{'confess'}}}("CONFESSing"); }; -if ($@ =~ /\bCONFESSing at .+\n.*\b(?:eval {\.\.\.}|require 0) called at\b/) +if ($@ =~ /\bCONFESSing at .+\n.*\b(?:eval \{\.\.\.\}|require 0) called at\b/) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -120,7 +120,7 @@ eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; &{*{$main::{'cluck'}}}("CLUCKing"); }; -if ($@ =~ /\bCLUCKing at .+\n.*\b(?:eval {\.\.\.}|require 0) called at\b/) +if ($@ =~ /\bCLUCKing at .+\n.*\b(?:eval \{\.\.\.\}|require 0) called at\b/) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -132,7 +132,7 @@ eval { Carp::Clan::confess("confessING"); }; -if ($@ =~ /\bconfessING at .+\n.*\b(?:eval {\.\.\.}|require 0) called at\b/) +if ($@ =~ /\bconfessING at .+\n.*\b(?:eval \{\.\.\.\}|require 0) called at\b/) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -144,7 +144,7 @@ eval { local $SIG{'__WARN__'} = sub { die $_[0]; }; Carp::Clan::cluck("cluckING"); }; -if ($@ =~ /\bcluckING at .+\n.*\b(?:eval {\.\.\.}|require 0) called at\b/) +if ($@ =~ /\bcluckING at .+\n.*\b(?:eval \{\.\.\.\}|require 0) called at\b/) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -167,7 +167,7 @@ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -186,7 +186,7 @@ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -209,7 +209,7 @@ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -228,7 +228,7 @@ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -251,7 +251,7 @@ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -270,7 +270,7 @@ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -293,7 +293,7 @@ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -312,7 +312,7 @@ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -335,7 +335,7 @@ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -354,7 +354,7 @@ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -377,7 +377,7 @@ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -396,7 +396,7 @@ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -419,7 +419,7 @@ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -438,7 +438,7 @@ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -455,7 +455,7 @@ .*\bC::c\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n .*\bB::b\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n .*\bA::a\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -468,7 +468,7 @@ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -481,7 +481,7 @@ .*\bC::c\(3,\ 'CaRpInG'\)\ called\ at\ .+\n .*\bB::b\(3,\ 'CaRpInG'\)\ called\ at\ .+\n .*\bA::a\(3,\ 'CaRpInG'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -494,7 +494,7 @@ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -511,7 +511,7 @@ .*\bC::c\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n .*\bB::b\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n .*\bA::a\(1,\ 'CrOaKiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -524,7 +524,7 @@ .*\bC::c\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bB::b\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n .*\bA::a\(2,\ 'CoNfEsSiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -537,7 +537,7 @@ .*\bC::c\(3,\ 'CaRpInG'\)\ called\ at\ .+\n .*\bB::b\(3,\ 'CaRpInG'\)\ called\ at\ .+\n .*\bA::a\(3,\ 'CaRpInG'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; @@ -550,7 +550,7 @@ .*\bC::c\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bB::b\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n .*\bA::a\(4,\ 'ClUcKiNg'\)\ called\ at\ .+\n - .*\b(?:eval\ {\.\.\.}|require\ 0)\ called\ at\ /x) + .*\b(?:eval\ \{\.\.\.\}|require\ 0)\ called\ at\ /x) {print "ok $n\n";} else {print "not ok $n\n";} $n++; ++++++ cpanspec.yml ++++++ --- description_paragraphs: 3 #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_install: |- # sed on %{name}.files #license: SUSE-NonFree #skip_noarch: 1 #custom_build: - #./Build build flags=%{?_smp_mflags} --myflag
