Hello community,
here is the log from the commit of package perl-MIME-Types for openSUSE:Factory checked in at 2015-06-17 16:16:18
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-MIME-Types (Old)
and /work/SRC/openSUSE:Factory/.perl-MIME-Types.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-MIME-Types"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-MIME-Types/perl-MIME-Types.changes 2015-04-15 16:25:52.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.perl-MIME-Types.new/perl-MIME-Types.changes 2015-06-17 16:16:20.000000000 +0200
@@ -1,0 +2,15 @@
+Tue Jun 16 08:40:20 UTC 2015 - coolo@suse.com
+
+- updated to 2.10
+ see /usr/share/doc/packages/perl-MIME-Types/ChangeLog
+
+ version 2.10: Mon Jun 15 17:32:22 CEST 2015
+
+ Fixes:
+ - accept field 'q' weights [Theo van Hoesel]
+
+ Improvements:
+ - introduce PERL_MIME_TYPE_DB
+ rt.cpan.org#104945 [Philip Gwyn]
+
+-------------------------------------------------------------------
Old:
----
MIME-Types-2.09.tar.gz
New:
----
MIME-Types-2.10.tar.gz
cpanspec.yml
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-MIME-Types.spec ++++++
--- /var/tmp/diff_new_pack.oqiPHi/_old 2015-06-17 16:16:21.000000000 +0200
+++ /var/tmp/diff_new_pack.oqiPHi/_new 2015-06-17 16:16:21.000000000 +0200
@@ -17,14 +17,15 @@
Name: perl-MIME-Types
-Version: 2.09
+Version: 2.10
Release: 0
%define cpan_name MIME-Types
Summary: Definition of MIME types
License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/MIME-Types/
-Source: http://www.cpan.org/authors/id/M/MA/MARKOV/%{cpan_name}-%{version}.tar.gz
+Source0: http://www.cpan.org/authors/id/M/MA/MARKOV/%{cpan_name}-%{version}.tar.gz
+Source1: cpanspec.yml
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
++++++ MIME-Types-2.09.tar.gz -> MIME-Types-2.10.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-Types-2.09/ChangeLog new/MIME-Types-2.10/ChangeLog
--- old/MIME-Types-2.09/ChangeLog 2014-09-14 18:12:24.000000000 +0200
+++ new/MIME-Types-2.10/ChangeLog 2015-06-15 17:32:27.000000000 +0200
@@ -6,6 +6,15 @@
TODO:
. Add source http://www.ltsw.se/knbase/internet/mime.htp ?
+version 2.10: Mon Jun 15 17:32:22 CEST 2015
+
+ Fixes:
+ - accept field 'q' weights [Theo van Hoesel]
+
+ Improvements:
+ - introduce PERL_MIME_TYPE_DB
+ rt.cpan.org#104945 [Philip Gwyn]
+
version 2.09: Sun Sep 14 18:12:08 CEST 2014
Improvements:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-Types-2.09/META.json new/MIME-Types-2.10/META.json
--- old/MIME-Types-2.09/META.json 2014-09-14 18:12:26.000000000 +0200
+++ new/MIME-Types-2.10/META.json 2015-06-15 17:32:29.000000000 +0200
@@ -40,5 +40,5 @@
}
},
"release_status" : "stable",
- "version" : "2.09"
+ "version" : "2.10"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-Types-2.09/META.yml new/MIME-Types-2.10/META.yml
--- old/MIME-Types-2.09/META.yml 2014-09-14 18:12:26.000000000 +0200
+++ new/MIME-Types-2.10/META.yml 2015-06-15 17:32:28.000000000 +0200
@@ -22,4 +22,4 @@
File::Spec: 0
List::Util: 0
Test::More: 0.47
-version: 2.09
+version: 2.10
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-Types-2.09/Makefile.PL new/MIME-Types-2.10/Makefile.PL
--- old/MIME-Types-2.09/Makefile.PL 2014-09-14 18:12:24.000000000 +0200
+++ new/MIME-Types-2.10/Makefile.PL 2015-06-15 17:32:27.000000000 +0200
@@ -2,7 +2,7 @@
require 5.008_008;
-my $version = '2.09'; # scanned by bin/collect_types !
+my $version = '2.10'; # scanned by bin/collect_types !
WriteMakefile
( NAME => 'MIME::Types'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-Types-2.09/lib/MIME/Type.pm new/MIME-Types-2.10/lib/MIME/Type.pm
--- old/MIME-Types-2.09/lib/MIME/Type.pm 2014-09-14 18:12:24.000000000 +0200
+++ new/MIME-Types-2.10/lib/MIME/Type.pm 2015-06-15 17:32:27.000000000 +0200
@@ -1,10 +1,10 @@
-# Copyrights 1999,2001-2014 by [Mark Overmeer].
+# Copyrights 1999,2001-2015 by [Mark Overmeer].
# For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.01.
package MIME::Type;
use vars '$VERSION';
-$VERSION = '2.09';
+$VERSION = '2.10';
use strict;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-Types-2.09/lib/MIME/Type.pod new/MIME-Types-2.10/lib/MIME/Type.pod
--- old/MIME-Types-2.09/lib/MIME/Type.pod 2014-09-14 18:12:24.000000000 +0200
+++ new/MIME-Types-2.10/lib/MIME/Type.pod 2015-06-15 17:32:27.000000000 +0200
@@ -225,12 +225,12 @@
=head1 SEE ALSO
-This module is part of MIME-Types distribution version 2.09,
-built on September 14, 2014. Website: Fhttp://perl.overmeer.net/mimetypes/
+This module is part of MIME-Types distribution version 2.10,
+built on June 15, 2015. Website: Fhttp://perl.overmeer.net/mimetypes/
=head1 LICENSE
-Copyrights 1999,2001-2014 by [Mark Overmeer]. For other contributors see ChangeLog.
+Copyrights 1999,2001-2015 by [Mark Overmeer]. For other contributors see ChangeLog.
This program 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/MIME-Types-2.09/lib/MIME/Types.pm new/MIME-Types-2.10/lib/MIME/Types.pm
--- old/MIME-Types-2.09/lib/MIME/Types.pm 2014-09-14 18:12:24.000000000 +0200
+++ new/MIME-Types-2.10/lib/MIME/Types.pm 2015-06-15 17:32:27.000000000 +0200
@@ -1,11 +1,11 @@
-# Copyrights 1999,2001-2014 by [Mark Overmeer].
+# Copyrights 1999,2001-2015 by [Mark Overmeer].
# For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.01.
package MIME::Types;
use vars '$VERSION';
-$VERSION = '2.09';
+$VERSION = '2.10';
use strict;
@@ -31,7 +31,8 @@
my $only_complete = $args->{only_complete};
my $only_iana = $args->{only_iana};
- my $db = $args->{db_file}
+ my $db = $ENV{PERL_MIME_TYPE_DB}
+ || $args->{db_file}
|| File::Spec->catfile(dirname(__FILE__), 'types.db');
local *DB;
@@ -166,8 +167,15 @@
$ !x or next;
my $mime = "$1/$2$4";
- my $q = $3 || ($1 eq '*' ? -2 : $2 eq '*' ? -1 : 1);
- push @listed, [ $mime, $q-@listed*0.001 ];
+ my $q = $3 // 1; # q, default=1
+
+ # most complex first
+ $q += $4 ? +0.01 : $1 eq '*' ? -0.02 : $2 eq '*' ? -0.01 : 0;
+
+ # keep order
+ $q -= @listed*0.0001;
+
+ push @listed, [ $mime => $q ];
}
map $_->[0], sort {$b->[1] <=> $a->[1]} @listed;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MIME-Types-2.09/lib/MIME/Types.pod new/MIME-Types-2.10/lib/MIME/Types.pod
--- old/MIME-Types-2.09/lib/MIME/Types.pod 2014-09-14 18:12:24.000000000 +0200
+++ new/MIME-Types-2.10/lib/MIME/Types.pod 2015-06-15 17:32:27.000000000 +0200
@@ -67,6 +67,14 @@
=item db_file => FILENAME
+The location of the database which contains the type information. Only the
+first instantiation of this object will have this parameter obeyed.
+
+[2.10] This parameter can be globally overruled via the C