Hello community,
here is the log from the commit of package perl-HTTP-Negotiate for openSUSE:Factory checked in at 2012-03-01 17:23:53
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-HTTP-Negotiate (Old)
and /work/SRC/openSUSE:Factory/.perl-HTTP-Negotiate.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-HTTP-Negotiate", Maintainer is ""
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-HTTP-Negotiate/perl-HTTP-Negotiate.changes 2011-09-23 12:37:25.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.perl-HTTP-Negotiate.new/perl-HTTP-Negotiate.changes 2012-03-01 17:23:56.000000000 +0100
@@ -1,0 +2,6 @@
+Mon Feb 20 10:48:40 UTC 2012 - coolo@suse.com
+
+- updated to 6.01
+ * Restore perl-5.8.1 compatiblity.
+
+-------------------------------------------------------------------
Old:
----
HTTP-Negotiate-6.00.tar.gz
New:
----
HTTP-Negotiate-6.01.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-HTTP-Negotiate.spec ++++++
--- /var/tmp/diff_new_pack.srhJs1/_old 2012-03-01 17:23:58.000000000 +0100
+++ /var/tmp/diff_new_pack.srhJs1/_new 2012-03-01 17:23:58.000000000 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-HTTP-Negotiate
#
-# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -16,23 +16,23 @@
#
-
Name: perl-HTTP-Negotiate
-Version: 6.00
-Release: 1
-License: GPL-1.0+ or Artistic-1.0
+Version: 6.01
+Release: 0
%define cpan_name HTTP-Negotiate
Summary: choose a variant to serve
-Url: http://search.cpan.org/dist/HTTP-Negotiate/
+License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
-#Source: http://www.cpan.org/authors/id/G/GA/GAAS/HTTP-Negotiate-%{version}.tar.gz
-Source: %{cpan_name}-%{version}.tar.gz
-BuildRequires: perl(HTTP::Headers) >= 6
+Url: http://search.cpan.org/dist/HTTP-Negotiate/
+Source: http://www.cpan.org/authors/id/G/GA/GAAS/%{cpan_name}-%{version}.tar.gz
+BuildArch: noarch
+BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
+BuildRequires: perl(HTTP::Headers) >= 6
+#BuildRequires: perl(HTTP::Negotiate)
+#BuildRequires: perl(HTTP::Request)
Requires: perl(HTTP::Headers) >= 6
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
-BuildArch: noarch
%{perl_requires}
%description
@@ -42,6 +42,36 @@
representation based upon attributes of the negotiable variants and the
value of the various Accept* header fields in the request.
+The variants are ordered by preference by calling the function choose().
+
+The first parameter is reference to an array of the variants to choose
+among. Each element in this array is an array with the values [$id, $qs,
+$content_type, $content_encoding, $charset, $content_language,
+$content_length] whose meanings are described below. The $content_encoding
+and $content_language can be either a single scalar value or an array
+reference if there are several values.
+
+The second optional parameter is either a HTTP::Headers or a HTTP::Request
+object which is searched for "Accept*" headers. If this parameter is
+missing, then the accept specification is initialized from the CGI
+environment variables HTTP_ACCEPT, HTTP_ACCEPT_CHARSET,
+HTTP_ACCEPT_ENCODING and HTTP_ACCEPT_LANGUAGE.
+
+In an array context, choose() returns a list of [variant identifier,
+calculated quality, size] tuples. The values are sorted by quality, highest
+quality first. If the calculated quality is the same for two variants, then
+they are sorted by size (smallest first). _E.g._:
+
+ (['var1', 1, 2000], ['var2', 0.3, 512], ['var3', 0.3, 1024]);
+
+Note that also zero quality variants are included in the return list even
+if these should never be served to the client.
+
+In a scalar context, it returns the identifier of the variant with the
+highest score or 'undef' if none have non-zero quality.
+
+If the $HTTP::Negotiate::DEBUG variable is set to TRUE, then a lot of noise
+is generated on STDOUT during evaluation of choose().
%prep
%setup -q -n %{cpan_name}-%{version}
@@ -58,11 +88,8 @@
%perl_process_packlist
%perl_gen_filelist
-%clean
-%{__rm} -rf %{buildroot}
-
%files -f %{name}.files
-%defattr(644,root,root,755)
+%defattr(-,root,root,755)
%doc Changes README
%changelog
++++++ HTTP-Negotiate-6.00.tar.gz -> HTTP-Negotiate-6.01.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Negotiate-6.00/Changes new/HTTP-Negotiate-6.01/Changes
--- old/HTTP-Negotiate-6.00/Changes 2011-02-27 23:37:48.000000000 +0100
+++ new/HTTP-Negotiate-6.01/Changes 2012-02-18 13:31:08.000000000 +0100
@@ -1,4 +1,12 @@
_______________________________________________________________________________
+2012-02-18 HTTP-Negotiate 6.01
+
+Restore perl-5.8.1 compatiblity.
+
+
+
+
+_______________________________________________________________________________
2011-02-27 HTTP-Negotiate 6.00
Initial release of HTTP-Negotiate as a separate distribution. There are no code
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Negotiate-6.00/META.yml new/HTTP-Negotiate-6.01/META.yml
--- old/HTTP-Negotiate-6.00/META.yml 2011-02-27 23:38:04.000000000 +0100
+++ new/HTTP-Negotiate-6.01/META.yml 2012-02-18 13:31:54.000000000 +0100
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: HTTP-Negotiate
-version: 6.00
+version: 6.01
abstract: choose a variant to serve
author:
- Gisle Aas