Hello community, here is the log from the commit of package perl-HTTP-Date for openSUSE:Factory checked in at 2019-12-23 22:33:40 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-HTTP-Date (Old) and /work/SRC/openSUSE:Factory/.perl-HTTP-Date.new.6675 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-HTTP-Date" Mon Dec 23 22:33:40 2019 rev:12 rq:749962 version:6.05 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-HTTP-Date/perl-HTTP-Date.changes 2019-11-17 19:20:53.974923450 +0100 +++ /work/SRC/openSUSE:Factory/.perl-HTTP-Date.new.6675/perl-HTTP-Date.changes 2019-12-23 22:33:52.425727384 +0100 @@ -1,0 +2,19 @@ +Wed Nov 20 09:19:33 UTC 2019 - <[email protected]> + +- updated to 6.05 + see /usr/share/doc/packages/perl-HTTP-Date/Changes + + 6.05 2019-11-19 03:02:32Z + - Bump minimum version of Time::Local to 1.28 (GH#17) (Olaf Alders) + +------------------------------------------------------------------- +Fri Nov 15 09:05:47 UTC 2019 - <[email protected]> + +- updated to 6.04 + see /usr/share/doc/packages/perl-HTTP-Date/Changes + + 6.04 2019-11-14 22:22:50Z + - Replace vars with our (GH#15) (James Raspass) + - Tidy lib and t files (GH#16) (Olaf Alders) + +------------------------------------------------------------------- Old: ---- HTTP-Date-6.03.tar.gz New: ---- HTTP-Date-6.05.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-HTTP-Date.spec ++++++ --- /var/tmp/diff_new_pack.ymwNHm/_old 2019-12-23 22:33:54.097728109 +0100 +++ /var/tmp/diff_new_pack.ymwNHm/_new 2019-12-23 22:33:54.101728111 +0100 @@ -17,7 +17,7 @@ Name: perl-HTTP-Date -Version: 6.03 +Version: 6.05 Release: 0 %define cpan_name HTTP-Date Summary: HTTP::Date - date conversion routines @@ -30,7 +30,9 @@ BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros +BuildRequires: perl(Time::Local) >= 1.28 BuildRequires: perl(Time::Zone) +Requires: perl(Time::Local) >= 1.28 Requires: perl(Time::Zone) %{perl_requires} @@ -148,7 +150,7 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes CONTRIBUTORS README README.md +%doc Changes CONTRIBUTORS README.md %license LICENSE %changelog ++++++ HTTP-Date-6.03.tar.gz -> HTTP-Date-6.05.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Date-6.03/CONTRIBUTORS new/HTTP-Date-6.05/CONTRIBUTORS --- old/HTTP-Date-6.03/CONTRIBUTORS 2019-11-13 15:11:54.000000000 +0100 +++ new/HTTP-Date-6.05/CONTRIBUTORS 2019-11-19 04:02:36.000000000 +0100 @@ -28,6 +28,7 @@ * Hans-H. Froehlich * Ian Kilgore * Jacob J + * James Raspass * jefflee * john9art * Mark Stosberg diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Date-6.03/Changes new/HTTP-Date-6.05/Changes --- old/HTTP-Date-6.03/Changes 2019-11-13 15:11:54.000000000 +0100 +++ new/HTTP-Date-6.05/Changes 2019-11-19 04:02:36.000000000 +0100 @@ -1,5 +1,12 @@ Change history for HTTP-Date +6.05 2019-11-19 03:02:32Z + - Bump minimum version of Time::Local to 1.28 (GH#17) (Olaf Alders) + +6.04 2019-11-14 22:22:50Z + - Replace vars with our (GH#15) (James Raspass) + - Tidy lib and t files (GH#16) (Olaf Alders) + 6.03 2019-11-13 14:11:51Z - RT123557 Fix for DST test issues (GH#14) (@pludlamCVL) - Add Travis tests and convert to Dist::Zilla (GH#13) (Olaf Alders) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Date-6.03/MANIFEST new/HTTP-Date-6.05/MANIFEST --- old/HTTP-Date-6.03/MANIFEST 2019-11-13 15:11:54.000000000 +0100 +++ new/HTTP-Date-6.05/MANIFEST 2019-11-19 04:02:36.000000000 +0100 @@ -7,7 +7,6 @@ META.json META.yml Makefile.PL -README README.md cpanfile dist.ini diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Date-6.03/META.json new/HTTP-Date-6.05/META.json --- old/HTTP-Date-6.03/META.json 2019-11-13 15:11:54.000000000 +0100 +++ new/HTTP-Date-6.05/META.json 2019-11-19 04:02:36.000000000 +0100 @@ -57,11 +57,10 @@ "runtime" : { "requires" : { "Exporter" : "0", - "Time::Local" : "0", + "Time::Local" : "1.28", "Time::Zone" : "0", "perl" : "5.006002", - "strict" : "0", - "vars" : "0" + "strict" : "0" } }, "test" : { @@ -94,10 +93,10 @@ "x_IRC" : "irc://irc.perl.org/#lwp", "x_MailingList" : "mailto:[email protected]"; }, - "version" : "6.03", + "version" : "6.05", "x_Dist_Zilla" : { "perl" : { - "version" : "5.030000" + "version" : "5.026001" }, "plugins" : [ { @@ -135,7 +134,7 @@ { "class" : "Dist::Zilla::Plugin::MAXMIND::TidyAll", "name" : "@Author::OALDERS/MAXMIND::TidyAll", - "version" : "0.13" + "version" : "0.83" }, { "class" : "Dist::Zilla::Plugin::AutoPrereqs", @@ -206,7 +205,7 @@ "class" : "Dist::Zilla::Plugin::InstallGuide", "config" : { "Dist::Zilla::Role::ModuleMetadata" : { - "Module::Metadata" : "1.000037", + "Module::Metadata" : "1.000036", "version" : "0.006" } }, @@ -496,7 +495,7 @@ "changelog" : "Changes" }, "Dist::Zilla::Role::Git::Repo" : { - "git_version" : "2.23.0", + "git_version" : "2.24.0", "repo_root" : "." } }, @@ -507,7 +506,7 @@ "class" : "Dist::Zilla::Plugin::Git::Contributors", "config" : { "Dist::Zilla::Plugin::Git::Contributors" : { - "git_version" : "2.23.0", + "git_version" : "2.24.0", "include_authors" : 0, "include_releaser" : 1, "order_by" : "name", @@ -631,7 +630,7 @@ "changelog" : "Changes" }, "Dist::Zilla::Role::Git::Repo" : { - "git_version" : "2.23.0", + "git_version" : "2.24.0", "repo_root" : "." }, "Dist::Zilla::Role::Git::StringFormatter" : { @@ -648,12 +647,12 @@ "branch" : null, "changelog" : "Changes", "signed" : 0, - "tag" : "v6.03", + "tag" : "v6.05", "tag_format" : "v%V", "tag_message" : "v%V" }, "Dist::Zilla::Role::Git::Repo" : { - "git_version" : "2.23.0", + "git_version" : "2.24.0", "repo_root" : "." }, "Dist::Zilla::Role::Git::StringFormatter" : { @@ -703,7 +702,7 @@ "changelog" : "Changes" }, "Dist::Zilla::Role::Git::Repo" : { - "git_version" : "2.23.0", + "git_version" : "2.24.0", "repo_root" : "." }, "Dist::Zilla::Role::Git::StringFormatter" : { @@ -723,7 +722,7 @@ "remotes_must_exist" : 1 }, "Dist::Zilla::Role::Git::Repo" : { - "git_version" : "2.23.0", + "git_version" : "2.24.0", "repo_root" : "." } }, @@ -856,6 +855,7 @@ "Hans-H. Froehlich <[email protected]>", "Ian Kilgore <[email protected]>", "Jacob J <[email protected]>", + "James Raspass <[email protected]>", "jefflee <[email protected]>", "john9art <[email protected]>", "Mark Stosberg <[email protected]>", @@ -888,8 +888,8 @@ "Yuri Karaban <[email protected]>", "Zefram <[email protected]>" ], - "x_generated_by_perl" : "v5.30.0", - "x_serialization_backend" : "Cpanel::JSON::XS version 4.14", + "x_generated_by_perl" : "v5.26.1", + "x_serialization_backend" : "Cpanel::JSON::XS version 4.10", "x_static_install" : 1 } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Date-6.03/META.yml new/HTTP-Date-6.05/META.yml --- old/HTTP-Date-6.03/META.yml 2019-11-13 15:11:54.000000000 +0100 +++ new/HTTP-Date-6.05/META.yml 2019-11-19 04:02:36.000000000 +0100 @@ -27,21 +27,20 @@ - xt requires: Exporter: '0' - Time::Local: '0' + Time::Local: '1.28' Time::Zone: '0' perl: '5.006002' strict: '0' - vars: '0' resources: IRC: irc://irc.perl.org/#lwp MailingList: mailto:[email protected] bugtracker: https://github.com/libwww-perl/HTTP-Date/issues homepage: https://github.com/libwww-perl/HTTP-Date repository: https://github.com/libwww-perl/HTTP-Date.git -version: '6.03' +version: '6.05' x_Dist_Zilla: perl: - version: '5.030000' + version: '5.026001' plugins: - class: Dist::Zilla::Plugin::PromptIfStale @@ -71,7 +70,7 @@ - class: Dist::Zilla::Plugin::MAXMIND::TidyAll name: '@Author::OALDERS/MAXMIND::TidyAll' - version: '0.13' + version: '0.83' - class: Dist::Zilla::Plugin::AutoPrereqs name: '@Author::OALDERS/AutoPrereqs' @@ -127,7 +126,7 @@ class: Dist::Zilla::Plugin::InstallGuide config: Dist::Zilla::Role::ModuleMetadata: - Module::Metadata: '1.000037' + Module::Metadata: '1.000036' version: '0.006' name: '@Author::OALDERS/InstallGuide' version: '1.200013' @@ -350,7 +349,7 @@ allow_dirty_match: [] changelog: Changes Dist::Zilla::Role::Git::Repo: - git_version: 2.23.0 + git_version: 2.24.0 repo_root: . name: '@Author::OALDERS/Git::Check' version: '2.046' @@ -358,7 +357,7 @@ class: Dist::Zilla::Plugin::Git::Contributors config: Dist::Zilla::Plugin::Git::Contributors: - git_version: 2.23.0 + git_version: 2.24.0 include_authors: 0 include_releaser: 1 order_by: name @@ -453,7 +452,7 @@ allow_dirty_match: [] changelog: Changes Dist::Zilla::Role::Git::Repo: - git_version: 2.23.0 + git_version: 2.24.0 repo_root: . Dist::Zilla::Role::Git::StringFormatter: time_zone: local @@ -466,11 +465,11 @@ branch: ~ changelog: Changes signed: 0 - tag: v6.03 + tag: v6.05 tag_format: v%V tag_message: v%V Dist::Zilla::Role::Git::Repo: - git_version: 2.23.0 + git_version: 2.24.0 repo_root: . Dist::Zilla::Role::Git::StringFormatter: time_zone: local @@ -507,7 +506,7 @@ - (?^:^lib/.*\.pm$) changelog: Changes Dist::Zilla::Role::Git::Repo: - git_version: 2.23.0 + git_version: 2.24.0 repo_root: . Dist::Zilla::Role::Git::StringFormatter: time_zone: local @@ -521,7 +520,7 @@ - origin remotes_must_exist: 1 Dist::Zilla::Role::Git::Repo: - git_version: 2.23.0 + git_version: 2.24.0 repo_root: . name: '@Author::OALDERS/Git::Push' version: '2.046' @@ -627,6 +626,7 @@ - 'Hans-H. Froehlich <[email protected]>' - 'Ian Kilgore <[email protected]>' - 'Jacob J <[email protected]>' + - 'James Raspass <[email protected]>' - 'jefflee <[email protected]>' - 'john9art <[email protected]>' - 'Mark Stosberg <[email protected]>' @@ -658,6 +658,6 @@ - 'Ville Skytta <[email protected]>' - 'Yuri Karaban <[email protected]>' - 'Zefram <[email protected]>' -x_generated_by_perl: v5.30.0 +x_generated_by_perl: v5.26.1 x_serialization_backend: 'YAML::Tiny version 1.73' x_static_install: 1 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Date-6.03/Makefile.PL new/HTTP-Date-6.05/Makefile.PL --- old/HTTP-Date-6.03/Makefile.PL 2019-11-13 15:11:54.000000000 +0100 +++ new/HTTP-Date-6.05/Makefile.PL 2019-11-19 04:02:36.000000000 +0100 @@ -18,10 +18,9 @@ "NAME" => "HTTP::Date", "PREREQ_PM" => { "Exporter" => 0, - "Time::Local" => 0, + "Time::Local" => "1.28", "Time::Zone" => 0, - "strict" => 0, - "vars" => 0 + "strict" => 0 }, "TEST_REQUIRES" => { "ExtUtils::MakeMaker" => 0, @@ -32,7 +31,7 @@ "Test::More" => 0, "warnings" => 0 }, - "VERSION" => "6.03", + "VERSION" => "6.05", "test" => { "TESTS" => "t/*.t" } @@ -47,10 +46,9 @@ "IPC::Open3" => 0, "Test" => 0, "Test::More" => 0, - "Time::Local" => 0, + "Time::Local" => "1.28", "Time::Zone" => 0, "strict" => 0, - "vars" => 0, "warnings" => 0 ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Date-6.03/README new/HTTP-Date-6.05/README --- old/HTTP-Date-6.03/README 2019-11-13 15:11:54.000000000 +0100 +++ new/HTTP-Date-6.05/README 1970-01-01 01:00:00.000000000 +0100 @@ -1,112 +0,0 @@ -NAME - HTTP::Date - date conversion routines - -SYNOPSIS - use HTTP::Date; - - $string = time2str($time); # Format as GMT ASCII time - $time = str2time($string); # convert ASCII date to machine time - -DESCRIPTION - This module provides functions that deal the date formats used by the - HTTP protocol (and then some more). Only the first two functions, - time2str() and str2time(), are exported by default. - - time2str( [$time] ) - The time2str() function converts a machine time (seconds since - epoch) to a string. If the function is called without an argument or - with an undefined argument, it will use the current time. - - The string returned is in the format preferred for the HTTP - protocol. This is a fixed length subset of the format defined by RFC - 1123, represented in Universal Time (GMT). An example of a time - stamp in this format is: - - Sun, 06 Nov 1994 08:49:37 GMT - - str2time( $str [, $zone] ) - The str2time() function converts a string to machine time. It - returns `undef' if the format of $str is unrecognized, otherwise - whatever the `Time::Local' functions can make out of the parsed - time. Dates before the system's epoch may not work on all operating - systems. The time formats recognized are the same as for - parse_date(). - - The function also takes an optional second argument that specifies - the default time zone to use when converting the date. This - parameter is ignored if the zone is found in the date string itself. - If this parameter is missing, and the date string format does not - contain any zone specification, then the local time zone is assumed. - - If the zone is not "`GMT'" or numerical (like "`-0800'" or - "`+0100'"), then the `Time::Zone' module must be installed in order - to get the date recognized. - - parse_date( $str ) - This function will try to parse a date string, and then return it as - a list of numerical values followed by a (possible undefined) time - zone specifier; ($year, $month, $day, $hour, $min, $sec, $tz). The - $year returned will not have the number 1900 subtracted from it and - the $month numbers start with 1. - - In scalar context the numbers are interpolated in a string of the - "YYYY-MM-DD hh:mm:ss TZ"-format and returned. - - If the date is unrecognized, then the empty list is returned. - - The function is able to parse the following formats: - - "Wed, 09 Feb 1994 22:23:32 GMT" -- HTTP format - "Thu Feb 3 17:03:55 GMT 1994" -- ctime(3) format - "Thu Feb 3 00:00:00 1994", -- ANSI C asctime() format - "Tuesday, 08-Feb-94 14:15:29 GMT" -- old rfc850 HTTP format - "Tuesday, 08-Feb-1994 14:15:29 GMT" -- broken rfc850 HTTP format - - "03/Feb/1994:17:03:55 -0700" -- common logfile format - "09 Feb 1994 22:23:32 GMT" -- HTTP format (no weekday) - "08-Feb-94 14:15:29 GMT" -- rfc850 format (no weekday) - "08-Feb-1994 14:15:29 GMT" -- broken rfc850 format (no weekday) - - "1994-02-03 14:15:29 -0100" -- ISO 8601 format - "1994-02-03 14:15:29" -- zone is optional - "1994-02-03" -- only date - "1994-02-03T14:15:29" -- Use T as separator - "19940203T141529Z" -- ISO 8601 compact format - "19940203" -- only date - - "08-Feb-94" -- old rfc850 HTTP format (no weekday, no time) - "08-Feb-1994" -- broken rfc850 HTTP format (no weekday, no time) - "09 Feb 1994" -- proposed new HTTP format (no weekday, no time) - "03/Feb/1994" -- common logfile format (no time, no offset) - - "Feb 3 1994" -- Unix 'ls -l' format - "Feb 3 17:03" -- Unix 'ls -l' format - - "11-15-96 03:52PM" -- Windows 'dir' format - - The parser ignores leading and trailing whitespace. It also allow - the seconds to be missing and the month to be numerical in most - formats. - - If the year is missing, then we assume that the date is the first - matching date *before* current month. If the year is given with only - 2 digits, then parse_date() will select the century that makes the - year closest to the current date. - - time2iso( [$time] ) - Same as time2str(), but returns a "YYYY-MM-DD hh:mm:ss"-formatted - string representing time in the local time zone. - - time2isoz( [$time] ) - Same as time2str(), but returns a "YYYY-MM-DD hh:mm:ssZ"-formatted - string representing Universal Time. - -SEE ALSO - perlfunc, Time::Zone - -COPYRIGHT - Copyright 1995-1999, Gisle Aas - - This library 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/HTTP-Date-6.03/README.md new/HTTP-Date-6.05/README.md --- old/HTTP-Date-6.03/README.md 2019-11-13 15:11:54.000000000 +0100 +++ new/HTTP-Date-6.05/README.md 2019-11-19 04:02:36.000000000 +0100 @@ -4,7 +4,7 @@ # VERSION -version 6.03 +version 6.05 # SYNOPSIS @@ -113,7 +113,7 @@ # SEE ALSO -["time" in perlfunc](https://metacpan.org/pod/perlfunc#time), [Time::Zone](https://metacpan.org/pod/Time%3A%3AZone) +["time" in perlfunc](https://metacpan.org/pod/perlfunc#time), [Time::Zone](https://metacpan.org/pod/Time::Zone) # AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Date-6.03/cpanfile new/HTTP-Date-6.05/cpanfile --- old/HTTP-Date-6.03/cpanfile 2019-11-13 15:11:54.000000000 +0100 +++ new/HTTP-Date-6.05/cpanfile 2019-11-19 04:02:36.000000000 +0100 @@ -1,9 +1,8 @@ requires "Exporter" => "0"; -requires "Time::Local" => "0"; +requires "Time::Local" => "1.28"; requires "Time::Zone" => "0"; requires "perl" => "5.006002"; requires "strict" => "0"; -requires "vars" => "0"; on 'test' => sub { requires "ExtUtils::MakeMaker" => "0"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Date-6.03/dist.ini new/HTTP-Date-6.05/dist.ini --- old/HTTP-Date-6.03/dist.ini 2019-11-13 15:11:54.000000000 +0100 +++ new/HTTP-Date-6.05/dist.ini 2019-11-19 04:02:36.000000000 +0100 @@ -19,6 +19,7 @@ [Prereqs] perl = 5.006002 +Time::Local = 1.28 [Test::ChangesHasContent] [Test::Compile] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Date-6.03/lib/HTTP/Date.pm new/HTTP-Date-6.05/lib/HTTP/Date.pm --- old/HTTP-Date-6.03/lib/HTTP/Date.pm 2019-11-13 15:11:54.000000000 +0100 +++ new/HTTP-Date-6.05/lib/HTTP/Date.pm 2019-11-19 04:02:36.000000000 +0100 @@ -1,175 +1,188 @@ package HTTP::Date; -our $VERSION = '6.03'; +use strict; + +our $VERSION = '6.05'; require Exporter; -@ISA = qw(Exporter); -@EXPORT = qw(time2str str2time); -@EXPORT_OK = qw(parse_date time2iso time2isoz); +our @ISA = qw(Exporter); +our @EXPORT = qw(time2str str2time); +our @EXPORT_OK = qw(parse_date time2iso time2isoz); -use strict; require Time::Local; -use vars qw(@DoW @MoY %MoY); -@DoW = qw(Sun Mon Tue Wed Thu Fri Sat); -@MoY = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); -@MoY{@MoY} = (1..12); +our ( @DoW, @MoY, %MoY ); +@DoW = qw(Sun Mon Tue Wed Thu Fri Sat); +@MoY = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); +@MoY{@MoY} = ( 1 .. 12 ); -my %GMT_ZONE = (GMT => 1, UTC => 1, UT => 1, Z => 1); +my %GMT_ZONE = ( GMT => 1, UTC => 1, UT => 1, Z => 1 ); - -sub time2str (;$) -{ +sub time2str (;$) { my $time = shift; $time = time unless defined $time; - my ($sec, $min, $hour, $mday, $mon, $year, $wday) = gmtime($time); - sprintf("%s, %02d %s %04d %02d:%02d:%02d GMT", - $DoW[$wday], - $mday, $MoY[$mon], $year+1900, - $hour, $min, $sec); + my ( $sec, $min, $hour, $mday, $mon, $year, $wday ) = gmtime($time); + sprintf( + "%s, %02d %s %04d %02d:%02d:%02d GMT", + $DoW[$wday], + $mday, $MoY[$mon], $year + 1900, + $hour, $min, $sec + ); } - -sub str2time ($;$) -{ +sub str2time ($;$) { my $str = shift; return undef unless defined $str; # fast exit for strictly conforming string - if ($str =~ /^[SMTWF][a-z][a-z], (\d\d) ([JFMAJSOND][a-z][a-z]) (\d\d\d\d) (\d\d):(\d\d):(\d\d) GMT$/) { - return eval { - my $t = Time::Local::timegm($6, $5, $4, $1, $MoY{$2}-1, $3); - $t < 0 ? undef : $t; - }; + if ( $str + =~ /^[SMTWF][a-z][a-z], (\d\d) ([JFMAJSOND][a-z][a-z]) (\d\d\d\d) (\d\d):(\d\d):(\d\d) GMT$/ + ) { + return eval { + my $t = Time::Local::timegm( $6, $5, $4, $1, $MoY{$2} - 1, $3 ); + $t < 0 ? undef : $t; + }; } my @d = parse_date($str); return undef unless @d; - $d[1]--; # month + $d[1]--; # month my $tz = pop(@d); - unless (defined $tz) { - unless (defined($tz = shift)) { - return eval { my $frac = $d[-1]; $frac -= ($d[-1] = int($frac)); - my $t = Time::Local::timelocal(reverse @d) + $frac; - $t < 0 ? undef : $t; - }; - } + unless ( defined $tz ) { + unless ( defined( $tz = shift ) ) { + return eval { + my $frac = $d[-1]; + $frac -= ( $d[-1] = int($frac) ); + my $t = Time::Local::timelocal( reverse @d ) + $frac; + $t < 0 ? undef : $t; + }; + } } my $offset = 0; - if ($GMT_ZONE{uc $tz}) { - # offset already zero + if ( $GMT_ZONE{ uc $tz } ) { + + # offset already zero } - elsif ($tz =~ /^([-+])?(\d\d?):?(\d\d)?$/) { - $offset = 3600 * $2; - $offset += 60 * $3 if $3; - $offset *= -1 if $1 && $1 eq '-'; + elsif ( $tz =~ /^([-+])?(\d\d?):?(\d\d)?$/ ) { + $offset = 3600 * $2; + $offset += 60 * $3 if $3; + $offset *= -1 if $1 && $1 eq '-'; } else { - eval { require Time::Zone } || return undef; - $offset = Time::Zone::tz_offset($tz); - return undef unless defined $offset; + eval { require Time::Zone } || return undef; + $offset = Time::Zone::tz_offset($tz); + return undef unless defined $offset; } - return eval { my $frac = $d[-1]; $frac -= ($d[-1] = int($frac)); - my $t = Time::Local::timegm(reverse @d) + $frac; - $t < 0 ? undef : $t - $offset; - }; + return eval { + my $frac = $d[-1]; + $frac -= ( $d[-1] = int($frac) ); + my $t = Time::Local::timegm( reverse @d ) + $frac; + $t < 0 ? undef : $t - $offset; + }; } - -sub parse_date ($) -{ - local($_) = shift; +sub parse_date ($) { + local ($_) = shift; return unless defined; # More lax parsing below - s/^\s+//; # kill leading space - s/^(?:Sun|Mon|Tue|Wed|Thu|Fri|Sat)[a-z]*,?\s*//i; # Useless weekday + s/^\s+//; # kill leading space + s/^(?:Sun|Mon|Tue|Wed|Thu|Fri|Sat)[a-z]*,?\s*//i; # Useless weekday - my($day, $mon, $yr, $hr, $min, $sec, $tz, $ampm); + my ( $day, $mon, $yr, $hr, $min, $sec, $tz, $ampm ); # Then we are able to check for most of the formats with this regexp - (($day,$mon,$yr,$hr,$min,$sec,$tz) = - /^ - (\d\d?) # day - (?:\s+|[-\/]) - (\w+) # month - (?:\s+|[-\/]) - (\d+) # year - (?: - (?:\s+|:) # separator before clock - (\d\d?):(\d\d) # hour:min - (?::(\d\d))? # optional seconds - )? # optional clock - \s* - ([-+]?\d{2,4}|(?![APap][Mm]\b)[A-Za-z]+)? # timezone - \s* - (?:\(\w+\)|\w{3,})? # ASCII representation of timezone. - \s*$ - /x) - - || - - # Try the ctime and asctime format - (($mon, $day, $hr, $min, $sec, $tz, $yr) = - /^ - (\w{1,3}) # month - \s+ - (\d\d?) # day - \s+ - (\d\d?):(\d\d) # hour:min - (?::(\d\d))? # optional seconds - \s+ - (?:([A-Za-z]+)\s+)? # optional timezone - (\d+) # year - \s*$ # allow trailing whitespace - /x) - - || - - # Then the Unix 'ls -l' date format - (($mon, $day, $yr, $hr, $min, $sec) = - /^ - (\w{3}) # month - \s+ - (\d\d?) # day - \s+ - (?: - (\d\d\d\d) | # year - (\d{1,2}):(\d{2}) # hour:min + ( + ( $day, $mon, $yr, $hr, $min, $sec, $tz ) + = /^ + (\d\d?) # day + (?:\s+|[-\/]) + (\w+) # month + (?:\s+|[-\/]) + (\d+) # year + (?: + (?:\s+|:) # separator before clock + (\d\d?):(\d\d) # hour:min + (?::(\d\d))? # optional seconds + )? # optional clock + \s* + ([-+]?\d{2,4}|(?![APap][Mm]\b)[A-Za-z]+)? # timezone + \s* + (?:\(\w+\)|\w{3,})? # ASCII representation of timezone. + \s*$ + /x + ) + + || + + # Try the ctime and asctime format + ( + ( $mon, $day, $hr, $min, $sec, $tz, $yr ) + = /^ + (\w{1,3}) # month + \s+ + (\d\d?) # day + \s+ + (\d\d?):(\d\d) # hour:min + (?::(\d\d))? # optional seconds + \s+ + (?:([A-Za-z]+)\s+)? # optional timezone + (\d+) # year + \s*$ # allow trailing whitespace + /x + ) + + || + + # Then the Unix 'ls -l' date format + ( + ( $mon, $day, $yr, $hr, $min, $sec ) + = /^ + (\w{3}) # month + \s+ + (\d\d?) # day + \s+ + (?: + (\d\d\d\d) | # year + (\d{1,2}):(\d{2}) # hour:min (?::(\d\d))? # optional seconds - ) - \s*$ - /x) - - || - - # ISO 8601 format '1996-02-29 12:00:00 -0100' and variants - (($yr, $mon, $day, $hr, $min, $sec, $tz) = - /^ - (\d{4}) # year - [-\/]? - (\d\d?) # numerical month - [-\/]? - (\d\d?) # day - (?: - (?:\s+|[-:Tt]) # separator before clock - (\d\d?):?(\d\d) # hour:min - (?::?(\d\d(?:\.\d*)?))? # optional seconds (and fractional) - )? # optional clock - \s* - ([-+]?\d\d?:?(:?\d\d)? - |Z|z)? # timezone (Z is "zero meridian", i.e. GMT) - \s*$ - /x) - - || - - # Windows 'dir' 11-12-96 03:52PM - (($mon, $day, $yr, $hr, $min, $ampm) = - /^ + ) + \s*$ + /x + ) + + || + + # ISO 8601 format '1996-02-29 12:00:00 -0100' and variants + ( + ( $yr, $mon, $day, $hr, $min, $sec, $tz ) + = /^ + (\d{4}) # year + [-\/]? + (\d\d?) # numerical month + [-\/]? + (\d\d?) # day + (?: + (?:\s+|[-:Tt]) # separator before clock + (\d\d?):?(\d\d) # hour:min + (?::?(\d\d(?:\.\d*)?))? # optional seconds (and fractional) + )? # optional clock + \s* + ([-+]?\d\d?:?(:?\d\d)? + |Z|z)? # timezone (Z is "zero meridian", i.e. GMT) + \s*$ + /x + ) + + || + + # Windows 'dir' 11-12-96 03:52PM + ( + ( $mon, $day, $yr, $hr, $min, $ampm ) + = /^ (\d{2}) # numerical month - (\d{2}) # day @@ -178,36 +191,38 @@ \s+ (\d\d?):(\d\d)([APap][Mm]) # hour:min AM or PM \s*$ - /x) + /x + ) - || - return; # unrecognized format + || return; # unrecognized format # Translate month name to number - $mon = $MoY{$mon} || - $MoY{"\u\L$mon"} || - ($mon =~ /^\d\d?$/ && $mon >= 1 && $mon <= 12 && int($mon)) || - return; + $mon + = $MoY{$mon} + || $MoY{"\u\L$mon"} + || ( $mon =~ /^\d\d?$/ && $mon >= 1 && $mon <= 12 && int($mon) ) + || return; # If the year is missing, we assume first date before the current, # because of the formats we support such dates are mostly present # on "ls -l" listings. - unless (defined $yr) { - my $cur_mon; - ($cur_mon, $yr) = (localtime)[4, 5]; - $yr += 1900; - $cur_mon++; - $yr-- if $mon > $cur_mon; + unless ( defined $yr ) { + my $cur_mon; + ( $cur_mon, $yr ) = (localtime)[ 4, 5 ]; + $yr += 1900; + $cur_mon++; + $yr-- if $mon > $cur_mon; } - elsif (length($yr) < 3) { - # Find "obvious" year - my $cur_yr = (localtime)[5] + 1900; - my $m = $cur_yr % 100; - my $tmp = $yr; - $yr += $cur_yr - $m; - $m -= $tmp; - $yr += ($m > 0) ? 100 : -100 - if abs($m) > 50; + elsif ( length($yr) < 3 ) { + + # Find "obvious" year + my $cur_yr = (localtime)[5] + 1900; + my $m = $cur_yr % 100; + my $tmp = $yr; + $yr += $cur_yr - $m; + $m -= $tmp; + $yr += ( $m > 0 ) ? 100 : -100 + if abs($m) > 50; } # Make sure clock elements are defined @@ -217,47 +232,48 @@ # Compensate for AM/PM if ($ampm) { - $ampm = uc $ampm; - $hr = 0 if $hr == 12 && $ampm eq 'AM'; - $hr += 12 if $ampm eq 'PM' && $hr != 12; + $ampm = uc $ampm; + $hr = 0 if $hr == 12 && $ampm eq 'AM'; + $hr += 12 if $ampm eq 'PM' && $hr != 12; } - return($yr, $mon, $day, $hr, $min, $sec, $tz) - if wantarray; + return ( $yr, $mon, $day, $hr, $min, $sec, $tz ) + if wantarray; - if (defined $tz) { - $tz = "Z" if $tz =~ /^(GMT|UTC?|[-+]?0+)$/; + if ( defined $tz ) { + $tz = "Z" if $tz =~ /^(GMT|UTC?|[-+]?0+)$/; } else { - $tz = ""; + $tz = ""; } - return sprintf("%04d-%02d-%02d %02d:%02d:%02d%s", - $yr, $mon, $day, $hr, $min, $sec, $tz); + return sprintf( + "%04d-%02d-%02d %02d:%02d:%02d%s", + $yr, $mon, $day, $hr, $min, $sec, $tz + ); } - -sub time2iso (;$) -{ +sub time2iso (;$) { my $time = shift; $time = time unless defined $time; - my($sec,$min,$hour,$mday,$mon,$year) = localtime($time); - sprintf("%04d-%02d-%02d %02d:%02d:%02d", - $year+1900, $mon+1, $mday, $hour, $min, $sec); + my ( $sec, $min, $hour, $mday, $mon, $year ) = localtime($time); + sprintf( + "%04d-%02d-%02d %02d:%02d:%02d", + $year + 1900, $mon + 1, $mday, $hour, $min, $sec + ); } - -sub time2isoz (;$) -{ +sub time2isoz (;$) { my $time = shift; $time = time unless defined $time; - my($sec,$min,$hour,$mday,$mon,$year) = gmtime($time); - sprintf("%04d-%02d-%02d %02d:%02d:%02dZ", - $year+1900, $mon+1, $mday, $hour, $min, $sec); + my ( $sec, $min, $hour, $mday, $mon, $year ) = gmtime($time); + sprintf( + "%04d-%02d-%02d %02d:%02d:%02dZ", + $year + 1900, $mon + 1, $mday, $hour, $min, $sec + ); } 1; - # ABSTRACT: HTTP::Date - date conversion routines # @@ -273,7 +289,7 @@ =head1 VERSION -version 6.03 +version 6.05 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Date-6.03/t/00-report-prereqs.dd new/HTTP-Date-6.05/t/00-report-prereqs.dd --- old/HTTP-Date-6.03/t/00-report-prereqs.dd 2019-11-13 15:11:54.000000000 +0100 +++ new/HTTP-Date-6.05/t/00-report-prereqs.dd 2019-11-19 04:02:36.000000000 +0100 @@ -35,11 +35,10 @@ 'runtime' => { 'requires' => { 'Exporter' => '0', - 'Time::Local' => '0', + 'Time::Local' => '1.28', 'Time::Zone' => '0', 'perl' => '5.006002', - 'strict' => '0', - 'vars' => '0' + 'strict' => '0' } }, 'test' => { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Date-6.03/t/date.t new/HTTP-Date-6.05/t/date.t --- old/HTTP-Date-6.03/t/date.t 2019-11-13 15:11:54.000000000 +0100 +++ new/HTTP-Date-6.05/t/date.t 2019-11-19 04:02:36.000000000 +0100 @@ -9,122 +9,122 @@ # test str2time for supported dates. Test cases with 2 digit year # will probably break in year 2044. -my(@tests) = -( - 'Thu Feb 3 00:00:00 GMT 1994', # ctime format - 'Thu Feb 3 00:00:00 1994', # same as ctime, except no TZ - - 'Thu, 03 Feb 1994 00:00:00 GMT', # proposed new HTTP format - 'Thursday, 03-Feb-94 00:00:00 GMT', # old rfc850 HTTP format - 'Thursday, 03-Feb-1994 00:00:00 GMT', # broken rfc850 HTTP format - - '03/Feb/1994:00:00:00 0000', # common logfile format - '03/Feb/1994:01:00:00 +0100', # common logfile format - '02/Feb/1994:23:00:00 -0100', # common logfile format - - '03 Feb 1994 00:00:00 GMT', # HTTP format (no weekday) - '03-Feb-94 00:00:00 GMT', # old rfc850 (no weekday) - '03-Feb-1994 00:00:00 GMT', # broken rfc850 (no weekday) - '03-Feb-1994 00:00 GMT', # broken rfc850 (no weekday, no seconds) - '03-Feb-1994 00:00', # VMS dir listing format - - '03-Feb-94', # old rfc850 HTTP format (no weekday, no time) - '03-Feb-1994', # broken rfc850 HTTP format (no weekday, no time) - '03 Feb 1994', # proposed new HTTP format (no weekday, no time) - '03/Feb/1994', # common logfile format (no time, no offset) - - #'Feb 3 00:00', # Unix 'ls -l' format (can't really test it here) - 'Feb 3 1994', # Unix 'ls -l' format - - "02-03-94 12:00AM", # Windows 'dir' format - - # ISO 8601 formats - '1994-02-03 00:00:00 +0000', - '1994-02-03', - '19940203', - '1994-02-03T00:00:00+0000', - '1994-02-02T23:00:00-0100', - '1994-02-02T23:00:00-01:00', - '1994-02-03T00:00:00 Z', - '19940203T000000Z', - '199402030000', - - # A few tests with extra space at various places - ' 03/Feb/1994 ', - ' 03 Feb 1994 0:00 ', +my (@tests) = ( + 'Thu Feb 3 00:00:00 GMT 1994', # ctime format + 'Thu Feb 3 00:00:00 1994', # same as ctime, except no TZ + + 'Thu, 03 Feb 1994 00:00:00 GMT', # proposed new HTTP format + 'Thursday, 03-Feb-94 00:00:00 GMT', # old rfc850 HTTP format + 'Thursday, 03-Feb-1994 00:00:00 GMT', # broken rfc850 HTTP format + + '03/Feb/1994:00:00:00 0000', # common logfile format + '03/Feb/1994:01:00:00 +0100', # common logfile format + '02/Feb/1994:23:00:00 -0100', # common logfile format + + '03 Feb 1994 00:00:00 GMT', # HTTP format (no weekday) + '03-Feb-94 00:00:00 GMT', # old rfc850 (no weekday) + '03-Feb-1994 00:00:00 GMT', # broken rfc850 (no weekday) + '03-Feb-1994 00:00 GMT', # broken rfc850 (no weekday, no seconds) + '03-Feb-1994 00:00', # VMS dir listing format + + '03-Feb-94', # old rfc850 HTTP format (no weekday, no time) + '03-Feb-1994', # broken rfc850 HTTP format (no weekday, no time) + '03 Feb 1994', # proposed new HTTP format (no weekday, no time) + '03/Feb/1994', # common logfile format (no time, no offset) + + #'Feb 3 00:00', # Unix 'ls -l' format (can't really test it here) + 'Feb 3 1994', # Unix 'ls -l' format + + "02-03-94 12:00AM", # Windows 'dir' format + + # ISO 8601 formats + '1994-02-03 00:00:00 +0000', + '1994-02-03', + '19940203', + '1994-02-03T00:00:00+0000', + '1994-02-02T23:00:00-0100', + '1994-02-02T23:00:00-01:00', + '1994-02-03T00:00:00 Z', + '19940203T000000Z', + '199402030000', + + # A few tests with extra space at various places + ' 03/Feb/1994 ', + ' 03 Feb 1994 0:00 ', - # Tests a commonly used (faulty?) date format of php cms systems - 'Thu, 03 Feb 1994 00:00:00 +0000 GMT' + # Tests a commonly used (faulty?) date format of php cms systems + 'Thu, 03 Feb 1994 00:00:00 +0000 GMT' ); -my $time = 760233600; # assume broken POSIX counting of seconds +my $time = 760233600; # assume broken POSIX counting of seconds for (@tests) { my $t; if (/GMT/i) { - $t = str2time($_); + $t = str2time($_); } else { - $t = str2time($_, "GMT"); + $t = str2time( $_, "GMT" ); } - my $t2 = str2time(lc($_), "GMT"); - my $t3 = str2time(uc($_), "GMT"); + my $t2 = str2time( lc($_), "GMT" ); + my $t3 = str2time( uc($_), "GMT" ); print "\n# '$_'\n"; - ok($t, $time); - ok($t2, $time); - ok($t3, $time); + ok( $t, $time ); + ok( $t2, $time ); + ok( $t3, $time ); } # test time2str -ok(time2str($time), 'Thu, 03 Feb 1994 00:00:00 GMT'); +ok( time2str($time), 'Thu, 03 Feb 1994 00:00:00 GMT' ); # test the 'ls -l' format with missing year$ # round to nearest minute 3 days ago. -my $passed=0; +my $passed = 0; + # Put in a hack to make the test pass due to daylight savings time affecting # the result -for my $day (3..4) { - $time = int((time - $day * 24*60*60) /60)*60; - my ($min, $hr, $mday, $mon) = (localtime $time)[1,2,3,4]; - $mon = (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec))[$mon]; - my $str = sprintf("$mon %02d %02d:%02d", $mday, $hr, $min); - my $t = str2time($str); - if ($t==$time) { - $passed=1; - last; - } +for my $day ( 3 .. 4 ) { + $time = int( ( time - $day * 24 * 60 * 60 ) / 60 ) * 60; + my ( $min, $hr, $mday, $mon ) = ( localtime $time )[ 1, 2, 3, 4 ]; + $mon = (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec))[$mon]; + my $str = sprintf( "$mon %02d %02d:%02d", $mday, $hr, $min ); + my $t = str2time($str); + if ( $t == $time ) { + $passed = 1; + last; + } } ok($passed); - # try some garbage. -for (undef, '', 'Garbage', - 'Mandag 16. September 1996', - '12 Arp 2003', -# 'Thu Feb 3 00:00:00 CET 1994', -# 'Thu, 03 Feb 1994 00:00:00 CET', -# 'Wednesday, 31-Dec-69 23:59:59 GMT', - - '1980-00-01', - '1980-13-01', - '1980-01-00', - '1980-01-32', - '1980-01-01 25:00:00', - '1980-01-01 00:61:00', - '1980-01-01 00:00:61', - ) -{ +for ( + undef, '', 'Garbage', + 'Mandag 16. September 1996', + '12 Arp 2003', + + # 'Thu Feb 3 00:00:00 CET 1994', + # 'Thu, 03 Feb 1994 00:00:00 CET', + # 'Wednesday, 31-Dec-69 23:59:59 GMT', + + '1980-00-01', + '1980-13-01', + '1980-01-00', + '1980-01-32', + '1980-01-01 25:00:00', + '1980-01-01 00:61:00', + '1980-01-01 00:00:61', +) { my $bad = 0; eval { - if (defined str2time $_) { - print "str2time($_) is not undefined\n"; - $bad++; - } + if ( defined str2time $_) { + print "str2time($_) is not undefined\n"; + $bad++; + } }; print defined($_) ? "\n# '$_'\n" : "\n# undef\n"; - ok(!$@); - ok(!$bad); + ok( !$@ ); + ok( !$bad ); } print "Testing AM/PM gruff...\n"; @@ -134,34 +134,33 @@ print "Testing time2iso functions\n"; -my $t = time2iso(str2time("11-12-96 0:00AM")); -ok($t, "1996-11-12 00:00:00"); - -$t = time2iso(str2time("11-12-96 12:00AM")); -ok($t, "1996-11-12 00:00:00"); +my $t = time2iso( str2time("11-12-96 0:00AM") ); +ok( $t, "1996-11-12 00:00:00" ); -$t = time2iso(str2time("11-12-96 0:00PM")); -ok($t, "1996-11-12 12:00:00"); +$t = time2iso( str2time("11-12-96 12:00AM") ); +ok( $t, "1996-11-12 00:00:00" ); -$t = time2iso(str2time("11-12-96 12:00PM")); -ok($t, "1996-11-12 12:00:00"); +$t = time2iso( str2time("11-12-96 0:00PM") ); +ok( $t, "1996-11-12 12:00:00" ); +$t = time2iso( str2time("11-12-96 12:00PM") ); +ok( $t, "1996-11-12 12:00:00" ); -$t = time2iso(str2time("11-12-96 1:05AM")); -ok($t, "1996-11-12 01:05:00"); +$t = time2iso( str2time("11-12-96 1:05AM") ); +ok( $t, "1996-11-12 01:05:00" ); -$t = time2iso(str2time("11-12-96 12:05AM")); -ok($t, "1996-11-12 00:05:00"); +$t = time2iso( str2time("11-12-96 12:05AM") ); +ok( $t, "1996-11-12 00:05:00" ); -$t = time2iso(str2time("11-12-96 1:05PM")); -ok($t, "1996-11-12 13:05:00"); +$t = time2iso( str2time("11-12-96 1:05PM") ); +ok( $t, "1996-11-12 13:05:00" ); -$t = time2iso(str2time("11-12-96 12:05PM")); -ok($t, "1996-11-12 12:05:00"); +$t = time2iso( str2time("11-12-96 12:05PM") ); +ok( $t, "1996-11-12 12:05:00" ); $t = str2time("2000-01-01 00:00:01.234"); print "FRAC $t = ", time2iso($t), "\n"; -ok(abs(($t - int($t)) - 0.234) < 0.000001); +ok( abs( ( $t - int($t) ) - 0.234 ) < 0.000001 ); $a = time2iso; $b = time2iso(500000); @@ -170,21 +169,21 @@ my $bz = time2isoz(500000); print "GMT $az $bz\n"; -for ($a, $b) { ok(/^\d{4}-\d\d-\d\d \d\d:\d\d:\d\d$/); } -for ($az, $bz) { ok(/^\d{4}-\d\d-\d\d \d\d:\d\d:\d\dZ$/); } +for ( $a, $b ) { ok(/^\d{4}-\d\d-\d\d \d\d:\d\d:\d\d$/); } +for ( $az, $bz ) { ok(/^\d{4}-\d\d-\d\d \d\d:\d\d:\d\dZ$/); } # Test the parse_date interface use HTTP::Date qw(parse_date); my @d = parse_date("Jan 1 2001"); -ok(!defined(pop(@d))); -ok("@d", "2001 1 1 0 0 0"); +ok( !defined( pop(@d) ) ); +ok( "@d", "2001 1 1 0 0 0" ); # This test will break around year 2070 -ok(parse_date("03-Feb-20"), "2020-02-03 00:00:00"); +ok( parse_date("03-Feb-20"), "2020-02-03 00:00:00" ); # This test will break around year 2048 -ok(parse_date("03-Feb-98"), "1998-02-03 00:00:00"); +ok( parse_date("03-Feb-98"), "1998-02-03 00:00:00" ); print "HTTP::Date $HTTP::Date::VERSION\n"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Date-6.03/tidyall.ini new/HTTP-Date-6.05/tidyall.ini --- old/HTTP-Date-6.03/tidyall.ini 2019-11-13 15:11:54.000000000 +0100 +++ new/HTTP-Date-6.05/tidyall.ini 2019-11-19 04:02:36.000000000 +0100 @@ -1,19 +1,11 @@ [PerlTidy] select = **/*.{pl,pm,t,psgi} -ignore = t/00-* -ignore = t/author-* -ignore = t/release-* -ignore = blib/**/* ignore = .build/**/* ignore = HTTP-Date-*/**/* -argv = --profile=$ROOT/perltidyrc - -[PerlCritic] -select = **/*.{pl,pm,t,psgi} +ignore = blib/**/* ignore = t/00-* ignore = t/author-* ignore = t/release-* -ignore = blib/**/* -ignore = .build/**/* -ignore = HTTP-Date-*/**/* -argv = --profile $ROOT/perlcriticrc --program-extensions .pl --program-extensions .t --program-extensions .psgi +ignore = t/zzz-* +ignore = xt/**/* +argv = --profile=$ROOT/perltidyrc diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Date-6.03/xt/author/pod-spell.t new/HTTP-Date-6.05/xt/author/pod-spell.t --- old/HTTP-Date-6.03/xt/author/pod-spell.t 2019-11-13 15:11:54.000000000 +0100 +++ new/HTTP-Date-6.05/xt/author/pod-spell.t 2019-11-19 04:02:36.000000000 +0100 @@ -43,6 +43,7 @@ Hukins Ian Jacob +James Kapranoff Karaban Kennedy @@ -60,6 +61,7 @@ Peters Philip Rabbitson +Raspass Rezic Robert Rolf @@ -105,6 +107,7 @@ iank jefflee john9art +jraspass ka lib ludlam diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Date-6.03/xt/release/changes_has_content.t new/HTTP-Date-6.05/xt/release/changes_has_content.t --- old/HTTP-Date-6.03/xt/release/changes_has_content.t 2019-11-13 15:11:54.000000000 +0100 +++ new/HTTP-Date-6.05/xt/release/changes_has_content.t 2019-11-19 04:02:36.000000000 +0100 @@ -2,7 +2,7 @@ note 'Checking Changes'; my $changes_file = 'Changes'; -my $newver = '6.03'; +my $newver = '6.05'; my $trial_token = '-TRIAL'; my $encoding = 'UTF-8';
