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 - [email protected]
+
+- 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 <[email protected]>
@@ -12,15 +12,15 @@
ExtUtils::MakeMaker: 0
requires:
HTTP::Headers: 6
- perl: 5.008008
+ perl: 5.008001
resources:
MailingList: mailto:[email protected]
- repository: http://github.com/gisle/libwww-perl
+ repository: http://github.com/gisle/http-negotiate
no_index:
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.56
+generated_by: ExtUtils::MakeMaker version 6.57_05
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Negotiate-6.00/Makefile.PL
new/HTTP-Negotiate-6.01/Makefile.PL
--- old/HTTP-Negotiate-6.00/Makefile.PL 2011-02-27 23:37:43.000000000 +0100
+++ new/HTTP-Negotiate-6.01/Makefile.PL 2012-02-18 13:28:46.000000000 +0100
@@ -1,6 +1,6 @@
#!perl -w
-require 5.008008;
+require 5.008001;
use strict;
use ExtUtils::MakeMaker;
@@ -10,13 +10,13 @@
ABSTRACT_FROM => 'lib/HTTP/Negotiate.pm',
AUTHOR => 'Gisle Aas <[email protected]>',
LICENSE => "perl",
- MIN_PERL_VERSION => 5.008008,
+ MIN_PERL_VERSION => 5.008001,
PREREQ_PM => {
'HTTP::Headers' => 6,
},
META_MERGE => {
resources => {
- repository => 'http://github.com/gisle/libwww-perl',
+ repository => 'http://github.com/gisle/http-negotiate',
MailingList => 'mailto:[email protected]',
}
},
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/HTTP-Negotiate-6.00/lib/HTTP/Negotiate.pm
new/HTTP-Negotiate-6.01/lib/HTTP/Negotiate.pm
--- old/HTTP-Negotiate-6.00/lib/HTTP/Negotiate.pm 2011-02-27
23:37:48.000000000 +0100
+++ new/HTTP-Negotiate-6.01/lib/HTTP/Negotiate.pm 2012-02-18
13:30:22.000000000 +0100
@@ -1,9 +1,8 @@
package HTTP::Negotiate;
-$VERSION = "6.00";
+$VERSION = "6.01";
sub Version { $VERSION; }
-require 5.002;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(choose);
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
