Hello community,
here is the log from the commit of package perl-HTTP-Headers-Fast for
openSUSE:Factory checked in at 2017-02-16 17:02:54
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-HTTP-Headers-Fast (Old)
and /work/SRC/openSUSE:Factory/.perl-HTTP-Headers-Fast.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-HTTP-Headers-Fast"
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-HTTP-Headers-Fast/perl-HTTP-Headers-Fast.changes
2016-07-09 09:23:34.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-HTTP-Headers-Fast.new/perl-HTTP-Headers-Fast.changes
2017-02-16 17:02:55.481897741 +0100
@@ -1,0 +2,13 @@
+Mon Feb 13 12:08:56 UTC 2017 - [email protected]
+
+- updated to 0.21
+ see /usr/share/doc/packages/perl-HTTP-Headers-Fast/Changes
+
+ 0.21 2017-02-10T03:10:11Z
+
+ - rename flatten to psgi_flatten for fixing compatibility issue
plack/plack#541
+ (kazeburo)
+ - Copy "content_is_text" method from HTTP::Headers
+ (nfg)
+
+-------------------------------------------------------------------
Old:
----
HTTP-Headers-Fast-0.20.tar.gz
New:
----
HTTP-Headers-Fast-0.21.tar.gz
cpanspec.yml
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-HTTP-Headers-Fast.spec ++++++
--- /var/tmp/diff_new_pack.C3aTmg/_old 2017-02-16 17:02:55.857844551 +0100
+++ /var/tmp/diff_new_pack.C3aTmg/_new 2017-02-16 17:02:55.857844551 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-HTTP-Headers-Fast
#
-# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2017 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,20 +17,21 @@
Name: perl-HTTP-Headers-Fast
-Version: 0.20
+Version: 0.21
Release: 0
%define cpan_name HTTP-Headers-Fast
Summary: Faster Implementation of Http::Headers
License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/HTTP-Headers-Fast/
-Source0:
http://www.cpan.org/authors/id/T/TO/TOKUHIROM/%{cpan_name}-%{version}.tar.gz
+Source0:
https://cpan.metacpan.org/authors/id/T/TO/TOKUHIROM/%{cpan_name}-%{version}.tar.gz
+Source1: cpanspec.yml
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(HTTP::Date)
-BuildRequires: perl(Module::Build) >= 0.380000
+BuildRequires: perl(Module::Build::Tiny) >= 0.035
BuildRequires: perl(Test::More) >= 0.98
BuildRequires: perl(Test::Requires)
Requires: perl(HTTP::Date)
@@ -45,18 +46,19 @@
%setup -q -n %{cpan_name}-%{version}
%build
-%{__perl} Build.PL installdirs=vendor
-./Build build flags=%{?_smp_mflags}
+%{__perl} Build.PL --installdirs=vendor
+./Build build --flags=%{?_smp_mflags}
%check
./Build test
%install
-./Build install destdir=%{buildroot} create_packlist=0
+./Build install --destdir=%{buildroot} --create_packlist=0
%perl_gen_filelist
%files -f %{name}.files
%defattr(-,root,root,755)
-%doc Changes LICENSE README.md
+%doc Changes README.md
+%license LICENSE
%changelog
++++++ HTTP-Headers-Fast-0.20.tar.gz -> HTTP-Headers-Fast-0.21.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Headers-Fast-0.20/Build.PL
new/HTTP-Headers-Fast-0.21/Build.PL
--- old/HTTP-Headers-Fast-0.20/Build.PL 2015-11-20 05:44:19.000000000 +0100
+++ new/HTTP-Headers-Fast-0.21/Build.PL 2017-02-10 04:10:19.000000000 +0100
@@ -4,62 +4,9 @@
# =========================================================================
use 5.008_001;
-
use strict;
-use warnings;
-use utf8;
-
-use Module::Build;
-use File::Basename;
-use File::Spec;
-
-my %args = (
- license => 'perl',
- dynamic_config => 0,
-
- configure_requires => {
- 'Module::Build' => 0.38,
- },
-
- name => 'HTTP-Headers-Fast',
- module_name => 'HTTP::Headers::Fast',
- allow_pureperl => 0,
-
- script_files => [glob('script/*'), glob('bin/*')],
- c_source => [qw()],
- PL_files => {},
-
- test_files => ((-d '.git' || $ENV{RELEASE_TESTING}) && -d 'xt')
? 't/ xt/' : 't/',
- recursive_test_files => 1,
-
-
-);
-if (-d 'share') {
- $args{share_dir} = 'share';
-}
-
-my $builder = Module::Build->subclass(
- class => 'MyBuilder',
- code => q{
- sub ACTION_distmeta {
- die "Do not run distmeta. Install Minilla and `minil install`
instead.\n";
- }
- sub ACTION_installdeps {
- die "Do not run installdeps. Run `cpanm --installdeps .`
instead.\n";
- }
- }
-)->new(%args);
-$builder->create_build_script();
-
-use File::Copy;
-print "cp META.json MYMETA.json\n";
-copy("META.json","MYMETA.json") or die "Copy failed(META.json): $!";
+use Module::Build::Tiny 0.035;
-if (-f 'META.yml') {
- print "cp META.yml MYMETA.yml\n";
- copy("META.yml","MYMETA.yml") or die "Copy failed(META.yml): $!";
-} else {
- print "There is no META.yml... You may install this module from the
repository...\n";
-}
+Build_PL();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Headers-Fast-0.20/Changes
new/HTTP-Headers-Fast-0.21/Changes
--- old/HTTP-Headers-Fast-0.20/Changes 2015-11-20 05:44:19.000000000 +0100
+++ new/HTTP-Headers-Fast-0.21/Changes 2017-02-10 04:10:19.000000000 +0100
@@ -1,5 +1,12 @@
Revision history for Perl extension HTTP::Headers::Fast
+0.21 2017-02-10T03:10:11Z
+
+ - rename flatten to psgi_flatten for fixing compatibility issue
plack/plack#541
+ (kazeburo)
+ - Copy "content_is_text" method from HTTP::Headers
+ (nfg)
+
0.20 2015-11-20T04:44:09Z
- add flatten and flatten_without_sort
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Headers-Fast-0.20/MANIFEST
new/HTTP-Headers-Fast-0.21/MANIFEST
--- old/HTTP-Headers-Fast-0.20/MANIFEST 2015-11-20 05:44:19.000000000 +0100
+++ new/HTTP-Headers-Fast-0.21/MANIFEST 2017-02-10 04:10:19.000000000 +0100
@@ -11,7 +11,7 @@
t/as_string_without_sort.t
t/charset.t
t/headers.t
-t/headers_flatten.t
+t/headers_psgi_flatten.t
t/lazy_load_for_storable.t
tools/benchmark.pl
tools/prof.pl
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Headers-Fast-0.20/META.json
new/HTTP-Headers-Fast-0.21/META.json
--- old/HTTP-Headers-Fast-0.20/META.json 2015-11-20 05:44:19.000000000
+0100
+++ new/HTTP-Headers-Fast-0.21/META.json 2017-02-10 04:10:19.000000000
+0100
@@ -4,7 +4,7 @@
"Tokuhiro Matsuno <[email protected]>"
],
"dynamic_config" : 0,
- "generated_by" : "Minilla/v2.5.0",
+ "generated_by" : "Minilla/v3.0.9",
"license" : [
"perl_5"
],
@@ -28,7 +28,7 @@
"prereqs" : {
"configure" : {
"requires" : {
- "Module::Build" : "0.38"
+ "Module::Build::Tiny" : "0.035"
}
},
"develop" : {
@@ -56,7 +56,7 @@
"provides" : {
"HTTP::Headers::Fast" : {
"file" : "lib/HTTP/Headers/Fast.pm",
- "version" : "0.20"
+ "version" : "0.21"
}
},
"release_status" : "stable",
@@ -70,7 +70,7 @@
"web" : "https://github.com/tokuhirom/HTTP-Headers-Fast";
}
},
- "version" : "0.20",
+ "version" : "0.21",
"x_contributors" : [
"yappo <yappo@d0d07461-0603-4401-acd4-de1884942a52>",
"daisuke <daisuke@d0d07461-0603-4401-acd4-de1884942a52>",
@@ -81,7 +81,8 @@
"Tatsuhiko Miyagawa <[email protected]>",
"Sawyer X <[email protected]>",
"Masahiro Nagano <[email protected]>",
- "Tatsuhiko Miyagawa <[email protected]>"
+ "Tatsuhiko Miyagawa <[email protected]>",
+ "Nigel Gregoire <[email protected]>"
],
- "x_serialization_backend" : "JSON::PP version 2.27300"
+ "x_serialization_backend" : "JSON::PP version 2.27400"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Headers-Fast-0.20/META.yml
new/HTTP-Headers-Fast-0.21/META.yml
--- old/HTTP-Headers-Fast-0.20/META.yml 2015-11-20 05:44:19.000000000 +0100
+++ new/HTTP-Headers-Fast-0.21/META.yml 2017-02-10 04:10:19.000000000 +0100
@@ -6,9 +6,9 @@
Test::More: '0.98'
Test::Requires: '0'
configure_requires:
- Module::Build: '0.38'
+ Module::Build::Tiny: '0.035'
dynamic_config: 0
-generated_by: 'Minilla/v2.5.0, CPAN::Meta::Converter version 2.150005'
+generated_by: 'Minilla/v3.0.9, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -27,7 +27,7 @@
provides:
HTTP::Headers::Fast:
file: lib/HTTP/Headers/Fast.pm
- version: '0.20'
+ version: '0.21'
requires:
HTTP::Date: '0'
perl: '5.008001'
@@ -35,7 +35,7 @@
bugtracker: https://github.com/tokuhirom/HTTP-Headers-Fast/issues
homepage: https://github.com/tokuhirom/HTTP-Headers-Fast
repository: git://github.com/tokuhirom/HTTP-Headers-Fast.git
-version: '0.20'
+version: '0.21'
x_contributors:
- 'yappo <yappo@d0d07461-0603-4401-acd4-de1884942a52>'
- 'daisuke <daisuke@d0d07461-0603-4401-acd4-de1884942a52>'
@@ -47,4 +47,5 @@
- 'Sawyer X <[email protected]>'
- 'Masahiro Nagano <[email protected]>'
- 'Tatsuhiko Miyagawa <[email protected]>'
-x_serialization_backend: 'CPAN::Meta::YAML version 0.017'
+ - 'Nigel Gregoire <[email protected]>'
+x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Headers-Fast-0.20/README.md
new/HTTP-Headers-Fast-0.21/README.md
--- old/HTTP-Headers-Fast-0.20/README.md 2015-11-20 05:44:19.000000000
+0100
+++ new/HTTP-Headers-Fast-0.21/README.md 2017-02-10 04:10:19.000000000
+0100
@@ -25,13 +25,13 @@
In this method, stringify the instance of HTTP::Headers::Fast without
sorting.
-- flatten
+- psgi\_flatten
returns PSGI compatible arrayref of header.
my $headers:ArrayRef = $header->flatten
-- flatten\_without\_sort
+- psgi\_flatten\_without\_sort
same as flatten but returns arrayref without sorting.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Headers-Fast-0.20/lib/HTTP/Headers/Fast.pm
new/HTTP-Headers-Fast-0.21/lib/HTTP/Headers/Fast.pm
--- old/HTTP-Headers-Fast-0.20/lib/HTTP/Headers/Fast.pm 2015-11-20
05:44:19.000000000 +0100
+++ new/HTTP-Headers-Fast-0.21/lib/HTTP/Headers/Fast.pm 2017-02-10
04:10:19.000000000 +0100
@@ -4,7 +4,7 @@
use 5.00800;
use Carp ();
-our $VERSION = '0.20';
+our $VERSION = '0.21';
our $TRANSLATE_UNDERSCORE = 1;
@@ -350,7 +350,8 @@
$self->_as_string($endl, [keys(%$self)]);
}
-sub _flatten {
+
+sub _psgi_flatten {
my ($self, $keys) = @_;
my @headers;
for my $key ( @{$keys} ) {
@@ -372,13 +373,13 @@
return \@headers;
}
-sub flatten {
- $_[0]->_flatten($_[0]->_sorted_field_names);
+sub psgi_flatten {
+ $_[0]->_psgi_flatten($_[0]->_sorted_field_names);
}
-sub flatten_without_sort {
- $_[0]->_flatten([keys %{$_[0]}]);
+sub psgi_flatten_without_sort {
+ $_[0]->_psgi_flatten([keys %{$_[0]}]);
}
{
@@ -509,6 +510,11 @@
return @res;
}
+sub content_is_text {
+ my $self = shift;
+ return $self->content_type =~ m,^text/,;
+}
+
sub content_is_html {
my $self = shift;
return $self->content_type eq 'text/html' || $self->content_is_xhtml;
@@ -619,13 +625,13 @@
In this method, stringify the instance of HTTP::Headers::Fast without sorting.
-=item flatten
+=item psgi_flatten
returns PSGI compatible arrayref of header.
my $headers:ArrayRef = $header->flatten
-=item flatten_without_sort
+=item psgi_flatten_without_sort
same as flatten but returns arrayref without sorting.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Headers-Fast-0.20/t/headers.t
new/HTTP-Headers-Fast-0.21/t/headers.t
--- old/HTTP-Headers-Fast-0.20/t/headers.t 2015-11-20 05:44:19.000000000
+0100
+++ new/HTTP-Headers-Fast-0.21/t/headers.t 2017-02-10 04:10:19.000000000
+0100
@@ -4,7 +4,7 @@
use Test qw(plan ok);
use Test::Requires 'URI';
-plan tests => 164;
+plan tests => 171;
my($h, $h2);
sub j { join("|", @_) }
@@ -202,11 +202,18 @@
ok($h->content_is_html);
ok(!$h->content_is_xhtml);
ok(!$h->content_is_xml);
+ok($h->content_is_text);
$h->content_type("application/xhtml+xml");
ok($h->content_is_html);
ok($h->content_is_xhtml);
ok($h->content_is_xml);
-ok($h->content_type("text/html;\n charSet = \"ISO-8859-1\"; Foo=1 "),
"application/xhtml+xml");
+ok(!$h->content_is_text);
+ok($h->content_type("text/plain"), "application/xhtml+xml");
+ok(!$h->content_is_html);
+ok(!$h->content_is_xhtml);
+ok(!$h->content_is_xml);
+ok($h->content_is_text);
+ok($h->content_type("text/html;\n charSet = \"ISO-8859-1\"; Foo=1 "),
"text/plain");
ok($h->content_encoding, undef);
ok($h->content_encoding("gzip"), undef);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Headers-Fast-0.20/t/headers_flatten.t
new/HTTP-Headers-Fast-0.21/t/headers_flatten.t
--- old/HTTP-Headers-Fast-0.20/t/headers_flatten.t 2015-11-20
05:44:19.000000000 +0100
+++ new/HTTP-Headers-Fast-0.21/t/headers_flatten.t 1970-01-01
01:00:00.000000000 +0100
@@ -1,51 +0,0 @@
-#!perl -w
-
-use strict;
-use Test::More tests => 12;
-require HTTP::Headers::Fast;
-
-
-my $h = HTTP::Headers::Fast->new;
-is_deeply($h->flatten, []);
-
-$h = HTTP::Headers::Fast->new(foo => "bar", foo => "baaaaz", Foo => "baz");
-is_deeply($h->flatten, ['Foo','bar','Foo','baaaaz','Foo','baz']);
-is_deeply($h->flatten_without_sort, ['Foo','bar','Foo','baaaaz','Foo','baz']);
-
-$h = HTTP::Headers::Fast->new(foo => ["bar", "baz"]);
-is_deeply($h->flatten, ['Foo','bar','Foo','baz']);
-
-$h = HTTP::Headers::Fast->new(foo => 1, bar => 2, foo_bar => 3);
-is_deeply($h->flatten, ['Bar','2','Foo','1','Foo-Bar','3']);
-
-
-$h = HTTP::Headers::Fast->new(
- a => "foo\r\n\r\nevil body" ,
- b => "foo\015\012\015\012evil body" ,
- c => "foo\x0d\x0a\x0d\x0aevil body" ,
-);
-is_deeply($h->flatten, [
- 'A', "fooevil body",
- 'B', "fooevil body",
- 'C', "fooevil body",
- ]);
-
-$h = HTTP::Headers::Fast->new(
- "Foo\000Bar" => "baz",
- "Qux\177Quux" => "42"
-);
-is_deeply($h->flatten, [ "Foo\000Bar" => 'baz', "Qux\177Quux" => '42' ]);
-is_deeply(+{@{$h->flatten_without_sort}}, +{ "Foo\000Bar" => 'baz',
"Qux\177Quux" => '42' });
-
-$h = HTTP::Headers::Fast->new(
- "X-LWS-I" => "Bar\r\n true",
- "X-LWS-II" => "Bar\r\n\t\ttrue"
-);
-is_deeply($h->flatten, [ 'X-LWS-I' => 'Bar true', 'X-LWS-II' => 'Bar true' ]);
-is_deeply(+{@{$h->flatten_without_sort}}, +{ 'X-LWS-I' => 'Bar true',
'X-LWS-II' => 'Bar true' });
-
-$h = HTTP::Headers::Fast->new(
- "X-CR-LF" => "Foo\nBar\rBaz"
-);
-is_deeply($h->flatten, [ 'X-CR-LF' => 'FooBarBaz' ]);
-is_deeply($h->flatten_without_sort, [ 'X-CR-LF' => 'FooBarBaz' ]);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Headers-Fast-0.20/t/headers_psgi_flatten.t
new/HTTP-Headers-Fast-0.21/t/headers_psgi_flatten.t
--- old/HTTP-Headers-Fast-0.20/t/headers_psgi_flatten.t 1970-01-01
01:00:00.000000000 +0100
+++ new/HTTP-Headers-Fast-0.21/t/headers_psgi_flatten.t 2017-02-10
04:10:19.000000000 +0100
@@ -0,0 +1,51 @@
+#!perl -w
+
+use strict;
+use Test::More tests => 12;
+require HTTP::Headers::Fast;
+
+
+my $h = HTTP::Headers::Fast->new;
+is_deeply($h->psgi_flatten, []);
+
+$h = HTTP::Headers::Fast->new(foo => "bar", foo => "baaaaz", Foo => "baz");
+is_deeply($h->psgi_flatten, ['Foo','bar','Foo','baaaaz','Foo','baz']);
+is_deeply($h->psgi_flatten_without_sort,
['Foo','bar','Foo','baaaaz','Foo','baz']);
+
+$h = HTTP::Headers::Fast->new(foo => ["bar", "baz"]);
+is_deeply($h->psgi_flatten, ['Foo','bar','Foo','baz']);
+
+$h = HTTP::Headers::Fast->new(foo => 1, bar => 2, foo_bar => 3);
+is_deeply($h->psgi_flatten, ['Bar','2','Foo','1','Foo-Bar','3']);
+
+
+$h = HTTP::Headers::Fast->new(
+ a => "foo\r\n\r\nevil body" ,
+ b => "foo\015\012\015\012evil body" ,
+ c => "foo\x0d\x0a\x0d\x0aevil body" ,
+);
+is_deeply($h->psgi_flatten, [
+ 'A', "fooevil body",
+ 'B', "fooevil body",
+ 'C', "fooevil body",
+ ]);
+
+$h = HTTP::Headers::Fast->new(
+ "Foo\000Bar" => "baz",
+ "Qux\177Quux" => "42"
+);
+is_deeply($h->psgi_flatten, [ "Foo\000Bar" => 'baz', "Qux\177Quux" => '42' ]);
+is_deeply(+{@{$h->psgi_flatten_without_sort}}, +{ "Foo\000Bar" => 'baz',
"Qux\177Quux" => '42' });
+
+$h = HTTP::Headers::Fast->new(
+ "X-LWS-I" => "Bar\r\n true",
+ "X-LWS-II" => "Bar\r\n\t\ttrue"
+);
+is_deeply($h->psgi_flatten, [ 'X-LWS-I' => 'Bar true', 'X-LWS-II' => 'Bar
true' ]);
+is_deeply(+{@{$h->psgi_flatten_without_sort}}, +{ 'X-LWS-I' => 'Bar true',
'X-LWS-II' => 'Bar true' });
+
+$h = HTTP::Headers::Fast->new(
+ "X-CR-LF" => "Foo\nBar\rBaz"
+);
+is_deeply($h->psgi_flatten, [ 'X-CR-LF' => 'FooBarBaz' ]);
+is_deeply($h->psgi_flatten_without_sort, [ 'X-CR-LF' => 'FooBarBaz' ]);
++++++ cpanspec.yml ++++++
---
#description_paragraphs: 3
#description: |-
# override description from CPAN
#summary: override summary from CPAN
#no_testing: broken upstream
#sources:
# - source1
# - source2
#patches:
# foo.patch: -p1
# bar.patch:
#preamble: |-
# BuildRequires: gcc-c++
#post_prep: |-
# hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'`
# sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL
#post_build: |-
# rm unused.files
#post_install: |-
# sed on %{name}.files
#license: SUSE-NonFree
#skip_noarch: 1
#custom_build: |-
#./Build build flags=%{?_smp_mflags} --myflag
#custom_test: |-
#startserver && make test
#ignore_requires: Bizarre::Module
