Hello community, here is the log from the commit of package perl-File-MimeInfo for openSUSE:Factory checked in at 2018-10-08 17:49:30 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-File-MimeInfo (Old) and /work/SRC/openSUSE:Factory/.perl-File-MimeInfo.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-File-MimeInfo" Mon Oct 8 17:49:30 2018 rev:2 rq:640600 version:0.29 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-File-MimeInfo/perl-File-MimeInfo.changes 2017-08-18 15:01:11.553281417 +0200 +++ /work/SRC/openSUSE:Factory/.perl-File-MimeInfo.new/perl-File-MimeInfo.changes 2018-10-08 17:50:56.314062187 +0200 @@ -1,0 +2,27 @@ +Mon Oct 8 09:48:38 UTC 2018 - Dirk Stoecker <opens...@dstoecker.de> + +- Fix autogenerated changes + +------------------------------------------------------------------- +Mon Aug 6 05:31:39 UTC 2018 - co...@suse.com + +- updated to 0.29 + see /usr/share/doc/packages/perl-File-MimeInfo/Changes + + 0.29 2018-08-05 + - Stable release to CPAN. + + 0.28_03 2017-01-22 + - `mimeinfo --stdin` did not work. Reported by Marius Gavrilescu, + Debian bug https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=784545 + Added minimal tests for `mimeinfo`. + + 0.28_02 2016-12-17 + - Improved handling of Path::Tiny objects in default method. + + 0.28_01 2016-11-29 + - Spelling fix courtesy gregor herrmann, Debian Perl group (fixes #25) + - Added t/000-report-versions-tiny.t to find out issue with Path::Tiny file + handles. + +------------------------------------------------------------------- Old: ---- File-MimeInfo-0.28.tar.gz New: ---- File-MimeInfo-0.29.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-File-MimeInfo.spec ++++++ --- /var/tmp/diff_new_pack.Nvmj0H/_old 2018-10-08 17:50:56.706061688 +0200 +++ /var/tmp/diff_new_pack.Nvmj0H/_new 2018-10-08 17:50:56.706061688 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-File-MimeInfo # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2018 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 @@ -12,19 +12,19 @@ # license that conforms to the Open Source Definition (Version 1.9) # published by the Open Source Initiative. -# Please submit bugfixes or comments via http://bugs.opensuse.org/ +# Please submit bugfixes or comments via https://bugs.opensuse.org/ # Name: perl-File-MimeInfo -Version: 0.28 +Version: 0.29 Release: 0 %define cpan_name File-MimeInfo Summary: Determine file type from the file name -License: Artistic-1.0 or GPL-1.0+ +License: Artistic-1.0 OR GPL-1.0-or-later Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/File-MimeInfo/ -Source0: http://www.cpan.org/authors/id/M/MI/MICHIELB/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/M/MI/MICHIELB/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build @@ -32,9 +32,12 @@ BuildRequires: perl-macros BuildRequires: perl(File::BaseDir) >= 0.03 BuildRequires: perl(File::DesktopEntry) >= 0.04 +BuildRequires: perl(Test::More) >= 0.88 %{perl_requires} # MANUAL BEGIN +BuildRequires: shared-mime-info Requires: perl(File::BaseDir) >= 0.03 +Requires: shared-mime-info # MANUAL END %description ++++++ File-MimeInfo-0.28.tar.gz -> File-MimeInfo-0.29.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-MimeInfo-0.28/Changes new/File-MimeInfo-0.29/Changes --- old/File-MimeInfo-0.28/Changes 2016-11-27 09:49:59.000000000 +0100 +++ new/File-MimeInfo-0.29/Changes 2018-08-05 11:54:57.000000000 +0200 @@ -2,13 +2,30 @@ Versions up to 0.15 by Jaap Karssenberg <par...@cpan.org> Versions starting 0.16 by Michiel Beijen <michiel.bei...@gmail.com> +0.29 2018-08-05 + - Stable release to CPAN. + +0.28_03 2017-01-22 + - `mimeinfo --stdin` did not work. Reported by Marius Gavrilescu, + Debian bug https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=784545 + Added minimal tests for `mimeinfo`. + +0.28_02 2016-12-17 + - Improved handling of Path::Tiny objects in default method. + +0.28_01 2016-11-29 + - Spelling fix courtesy gregor herrmann, Debian Perl group (fixes #25) + - Added t/000-report-versions-tiny.t to find out issue with Path::Tiny file + handles. + 0.28 2016-11-27 - - Follow the current mime-apps-spec (fixes #8, #20) - The current version of the mime-apps spec locates the per-user defaults - file in `$XDG_CONFIG_HOME/mimeapps.list`. Use that location, and fall - back to the per-system and distribution defaults as specified, with the - previous legacy defaults file as a final fallback. - Fix by Patrick Burroughs (Celti) + - Follow the current mime-apps-spec (fixes #8, #20) + The current version of the mime-apps spec locates the per-user defaults + file in `$XDG_CONFIG_HOME/mimeapps.list`. Use that location, and fall + back to the per-system and distribution defaults as specified, with the + previous legacy defaults file as a final fallback. + Fix by Patrick Burroughs (Celti) + - POD clarifications by Nitish Bezzala 0.27 2015-02-23 - Allow to use mimeinfo on a Path::Tiny object. Reported by Smylers. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-MimeInfo-0.28/MANIFEST new/File-MimeInfo-0.29/MANIFEST --- old/File-MimeInfo-0.28/MANIFEST 2016-11-27 09:54:27.000000000 +0100 +++ new/File-MimeInfo-0.29/MANIFEST 2018-08-05 11:53:30.000000000 +0200 @@ -12,6 +12,7 @@ mimeopen mimetype README.md +t/000-report-versions-tiny.t t/00_use_ok.t t/01_normal.t t/02_magic.t @@ -23,6 +24,7 @@ t/08_changes.t t/09_no404s.t t/10filehandle.t +t/11mimeinfo.t t/applications/foo.desktop t/applications/mimeinfo.cache t/applications/mirage.desktop diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-MimeInfo-0.28/MANIFEST.SKIP new/File-MimeInfo-0.29/MANIFEST.SKIP --- old/File-MimeInfo-0.28/MANIFEST.SKIP 2016-11-27 09:54:14.000000000 +0100 +++ new/File-MimeInfo-0.29/MANIFEST.SKIP 2018-08-05 11:53:30.000000000 +0200 @@ -7,7 +7,9 @@ ^File-MimeInfo-\d \.bak$ \.tmp$ +\.swp$ ^MYMETA appveyor.yml +t/symlink .mailmap .travis.yml diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-MimeInfo-0.28/META.json new/File-MimeInfo-0.29/META.json --- old/File-MimeInfo-0.28/META.json 2016-11-27 10:47:28.000000000 +0100 +++ new/File-MimeInfo-0.29/META.json 2018-08-05 11:57:10.000000000 +0200 @@ -4,7 +4,7 @@ "Jaap Karssenberg <par...@cpan.org>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.18, CPAN::Meta::Converter version 2.150005", + "generated_by" : "ExtUtils::MakeMaker version 7.18, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], @@ -39,6 +39,11 @@ "requires" : { "perl" : "5.006001" } + }, + "test" : { + "requires" : { + "Test::More" : "0.88" + } } }, "release_status" : "stable", @@ -50,7 +55,7 @@ "url" : "https://github.com/mbeijen/File-MimeInfo" } }, - "version" : "0.28", + "version" : "0.29", "x_contributors" : [ "Bernhard Rosenkränzer <b...@lindev.ch>", "Christian Ludwig <chrissic...@gmail.com>", @@ -60,9 +65,11 @@ "Michiel Beijen <michiel.bei...@gmail.com>", "Nitish Bezzala <nbezz...@yahoo.com>", "Patrick Burroughs (Celti) <ce...@celti.name>", + "Rudolf Leermakers <rud...@hatsuseno.org>", "Sean Smith <ssm...@ncsgraphics.com>", "Stefan Seifert <n...@detonation.org>", - "brian m. carlson <sand...@crustytoothpaste.net>" + "brian m. carlson <sand...@crustytoothpaste.net>", + "gregor herrmann <gre...@debian.org>" ], "x_serialization_backend" : "JSON::PP version 2.27300" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-MimeInfo-0.28/META.yml new/File-MimeInfo-0.29/META.yml --- old/File-MimeInfo-0.28/META.yml 2016-11-27 10:47:28.000000000 +0100 +++ new/File-MimeInfo-0.29/META.yml 2018-08-05 11:57:10.000000000 +0200 @@ -9,10 +9,11 @@ File::BaseDir: '0.03' File::DesktopEntry: '0.04' Pod::Usage: '0' + Test::More: '0.88' configure_requires: ExtUtils::MakeMaker: '6.30' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.18, CPAN::Meta::Converter version 2.150005' +generated_by: 'ExtUtils::MakeMaker version 7.18, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -27,7 +28,7 @@ resources: bugtracker: https://github.com/mbeijen/File-MimeInfo/issues repository: https://github.com/mbeijen/File-MimeInfo -version: '0.28' +version: '0.29' x_contributors: - 'Bernhard Rosenkränzer <b...@lindev.ch>' - 'Christian Ludwig <chrissic...@gmail.com>' @@ -37,7 +38,9 @@ - 'Michiel Beijen <michiel.bei...@gmail.com>' - 'Nitish Bezzala <nbezz...@yahoo.com>' - 'Patrick Burroughs (Celti) <ce...@celti.name>' + - 'Rudolf Leermakers <rud...@hatsuseno.org>' - 'Sean Smith <ssm...@ncsgraphics.com>' - 'Stefan Seifert <n...@detonation.org>' - 'brian m. carlson <sand...@crustytoothpaste.net>' + - 'gregor herrmann <gre...@debian.org>' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-MimeInfo-0.28/Makefile.PL new/File-MimeInfo-0.29/Makefile.PL --- old/File-MimeInfo-0.28/Makefile.PL 2016-11-27 09:48:41.000000000 +0100 +++ new/File-MimeInfo-0.29/Makefile.PL 2018-08-05 11:53:30.000000000 +0200 @@ -24,6 +24,9 @@ 'CONFIGURE_REQUIRES' => { "ExtUtils::MakeMaker" => "6.30" }, + 'TEST_REQUIRES' => { + 'Test::More' => '0.88', + }, 'LIBS' => [''], 'EXE_FILES' => [ 'mimetype', 'mimeopen' ], 'dist' => { @@ -50,9 +53,11 @@ 'Michiel Beijen <michiel.bei...@gmail.com>', 'Nitish Bezzala <nbezz...@yahoo.com>', 'Patrick Burroughs (Celti) <ce...@celti.name>', + 'Rudolf Leermakers <rud...@hatsuseno.org>', 'Sean Smith <ssm...@ncsgraphics.com>', 'Stefan Seifert <n...@detonation.org>', 'brian m. carlson <sand...@crustytoothpaste.net>', + 'gregor herrmann <gre...@debian.org>', ], }, ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-MimeInfo-0.28/lib/File/MimeInfo/Applications.pm new/File-MimeInfo-0.29/lib/File/MimeInfo/Applications.pm --- old/File-MimeInfo-0.28/lib/File/MimeInfo/Applications.pm 2016-11-27 09:50:30.000000000 +0100 +++ new/File-MimeInfo-0.29/lib/File/MimeInfo/Applications.pm 2018-08-05 11:55:39.000000000 +0200 @@ -8,7 +8,7 @@ use File::DesktopEntry; require Exporter; -our $VERSION = '0.28'; +our $VERSION = '0.29'; our @ISA = qw(Exporter); our @EXPORT = qw( diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-MimeInfo-0.28/lib/File/MimeInfo/Magic.pm new/File-MimeInfo-0.29/lib/File/MimeInfo/Magic.pm --- old/File-MimeInfo-0.28/lib/File/MimeInfo/Magic.pm 2016-11-27 09:50:30.000000000 +0100 +++ new/File-MimeInfo-0.29/lib/File/MimeInfo/Magic.pm 2018-08-05 11:55:39.000000000 +0200 @@ -17,11 +17,12 @@ our @ISA = qw(Exporter File::MimeInfo); our @EXPORT = qw(mimetype); our @EXPORT_OK = qw(extensions describe globs inodetype magic); -our $VERSION = '0.28'; +our $VERSION = '0.29'; our $DEBUG; our $_hashed = 0; -our (@magic_80, @magic, $max_buffer); +our $max_buffer = 32; +our (@magic_80, @magic); # @magic_80 and @magic are used to store the parse tree of magic data # @magic_80 contains magic rules with priority 80 and higher, @magic the rest # $max_buffer contains the maximum number of chars to be buffered from a non-seekable diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-MimeInfo-0.28/lib/File/MimeInfo/Rox.pm new/File-MimeInfo-0.29/lib/File/MimeInfo/Rox.pm --- old/File-MimeInfo-0.28/lib/File/MimeInfo/Rox.pm 2016-11-27 09:50:30.000000000 +0100 +++ new/File-MimeInfo-0.29/lib/File/MimeInfo/Rox.pm 2018-08-05 11:55:39.000000000 +0200 @@ -10,7 +10,7 @@ our @EXPORT = qw(mime_exec mime_system); our @EXPORT_OK = qw(suggest_script_name); our %EXPORT_TAGS = (magic => \@EXPORT); -our $VERSION = '0.28'; +our $VERSION = '0.29'; our @choicespath = ( config_home('rox.sourceforge.net'), File::Spec->catdir($ENV{HOME}, 'Choices'), @@ -93,7 +93,7 @@ use File::MimeInfo::Magic; use File::MimeInfo::Rox qw/:magic/; - # open some file with the apropriate program + # open some file with the appropriate program mime_system($somefile); # more verbose version diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-MimeInfo-0.28/lib/File/MimeInfo.pm new/File-MimeInfo-0.29/lib/File/MimeInfo.pm --- old/File-MimeInfo-0.28/lib/File/MimeInfo.pm 2016-11-27 09:50:29.000000000 +0100 +++ new/File-MimeInfo-0.29/lib/File/MimeInfo.pm 2018-08-05 11:55:38.000000000 +0200 @@ -10,7 +10,7 @@ our @ISA = qw(Exporter); our @EXPORT = qw(mimetype); our @EXPORT_OK = qw(extensions describe globs inodetype mimetype_canon mimetype_isa); -our $VERSION = '0.28'; +our $VERSION = '0.29'; our $DEBUG; our ($_hashed, $_hashed_aliases, $_hashed_subclasses); @@ -109,6 +109,15 @@ read FILE, $line, 32; close FILE; } + elsif (ref $file eq 'Path::Tiny') { + return undef unless $file->exists; + print STDERR "> File is Path::Tiny object and exists, " + . "trying default method\n" if $DEBUG; + open my $fh, '<', $file or return undef; + binmode FILE, ':utf8' unless $] < 5.008; + read $fh, $line, 32; + close $fh; + } else { print STDERR "> Trying default method on object\n" if $DEBUG; @@ -234,10 +243,11 @@ next if grep {$_ eq $file} @done; open MAP, '<', $file || croak "Could not open file '$file' for reading"; binmode MAP, ':utf8' unless $] < 5.008; - while (<MAP>) { - next if /^\s*#/ or ! /\S/; # skip comments and empty lines - chomp; - my ($k, $v) = split /\s+/, $_, 2; + while (my $line = <MAP>) { + next unless $line =~ m/\S/; # skip empty lines + next if $line =~ m/^\s*#/; # skip comment lines + chomp $line; + my ($k, $v) = split m/\s+/, $line, 2; if ($list) { $map{$k} = [] unless $map{$k}; push @{$map{$k}}, $v; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-MimeInfo-0.28/mimeopen new/File-MimeInfo-0.29/mimeopen --- old/File-MimeInfo-0.28/mimeopen 2016-11-27 09:50:29.000000000 +0100 +++ new/File-MimeInfo-0.29/mimeopen 2018-08-05 11:55:38.000000000 +0200 @@ -1,7 +1,7 @@ #!/usr/bin/perl use strict; -our $VERSION = '0.28'; +our $VERSION = '0.29'; $|++; # ########## # diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-MimeInfo-0.28/mimetype new/File-MimeInfo-0.29/mimetype --- old/File-MimeInfo-0.28/mimetype 2016-11-27 09:50:29.000000000 +0100 +++ new/File-MimeInfo-0.29/mimetype 2018-08-05 11:55:38.000000000 +0200 @@ -1,7 +1,7 @@ #!/usr/bin/perl use strict; -our $VERSION = '0.28'; +our $VERSION = '0.29'; $|++; # ########## # diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-MimeInfo-0.28/t/000-report-versions-tiny.t new/File-MimeInfo-0.29/t/000-report-versions-tiny.t --- old/File-MimeInfo-0.28/t/000-report-versions-tiny.t 1970-01-01 01:00:00.000000000 +0100 +++ new/File-MimeInfo-0.29/t/000-report-versions-tiny.t 2018-08-05 11:53:30.000000000 +0200 @@ -0,0 +1,77 @@ +use strict; +use warnings; +use Test::More 0.88; +# This is a relatively nice way to avoid Test::NoWarnings breaking our +# expectations by adding extra tests, without using no_plan. It also helps +# avoid any other test module that feels introducing random tests, or even +# test plans, is a nice idea. +our $success = 0; +END { $success && done_testing; } + +# List our own version used to generate this +my $v = "\nGenerated by Dist::Zilla::Plugin::ReportVersions::Tiny v1.10\n"; + +eval { # no excuses! + # report our Perl details + my $want = '5.006001'; + $v .= "perl: $] (wanted $want) on $^O from $^X\n\n"; +}; +defined($@) and diag("$@"); + +# Now, our module version dependencies: +sub pmver { + my ($module, $wanted) = @_; + $wanted = " (want $wanted)"; + my $pmver; + eval "require $module;"; + if ($@) { + if ($@ =~ m/Can't locate .* in \@INC/) { + $pmver = 'module not found.'; + } else { + diag("${module}: $@"); + $pmver = 'died during require.'; + } + } else { + my $version; + eval { $version = $module->VERSION; }; + if ($@) { + diag("${module}: $@"); + $pmver = 'died during VERSION check.'; + } elsif (defined $version) { + $pmver = "$version"; + } else { + $pmver = '<undef>'; + } + } + + # So, we should be good, right? + return sprintf('%-45s => %-10s%-15s%s', $module, $pmver, $wanted, "\n"); +} + +eval { $v .= pmver('Carp','any version') }; +eval { $v .= pmver('Exporter','any version') }; +eval { $v .= pmver('Fcntl','any version') }; +eval { $v .= pmver('Pod::Usage','any version') }; +eval { $v .= pmver('File::Spec','0.03') }; +eval { $v .= pmver('File::DesktopEntry','0.04') }; +eval { $v .= pmver('Test::More','0.88') }; +eval { $v .= pmver('Path::Tiny','any version') }; + + +# All done. +$v .= <<'EOT'; + +Thanks for using my code. I hope it works for you. +If not, please try and include this output in the bug report. +That will help me reproduce the issue and solve your problem. + +EOT + +diag($v); +ok(1, "we really didn't test anything, just reporting data"); +$success = 1; + +# Work around another nasty module on CPAN. :/ +no warnings 'once'; +$Template::Test::NO_FLUSH = 1; +exit 0; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-MimeInfo-0.28/t/11mimeinfo.t new/File-MimeInfo-0.29/t/11mimeinfo.t --- old/File-MimeInfo-0.28/t/11mimeinfo.t 1970-01-01 01:00:00.000000000 +0100 +++ new/File-MimeInfo-0.29/t/11mimeinfo.t 2018-08-05 11:53:30.000000000 +0200 @@ -0,0 +1,29 @@ +use strict; +use warnings; + +use Test::More; + +use File::Spec; +use FindBin qw($Bin); + +eval "use IO::Scalar"; +my $have_io_scalar = !$@; + +my $mimetype_file = File::Spec->catfile($Bin, '..', 'mimetype'); + +my %tests = ( + 'mimeopen', 'application/x-perl', + 't/test.png', 'image/png', +); + +for my $test (sort keys %tests) { + my $result = $tests{$test}; + is(`$^X $mimetype_file --noalign $test`, "$test: $result\n", $test); + SKIP: { + skip "Skip stdin test because no IO::Scalar", 1 if !$have_io_scalar; + is(`$^X $mimetype_file --noalign --stdin < $test`, "STDIN: $result\n", + "$test (stdin)"); + }; +} + +done_testing;