Hello community,

here is the log from the commit of package perl-Linux-DesktopFiles for 
openSUSE:Factory checked in at 2017-10-06 11:03:57
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Linux-DesktopFiles (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Linux-DesktopFiles.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Linux-DesktopFiles"

Fri Oct  6 11:03:57 2017 rev:2 rq:531582 version:0.22

Changes:
--------
--- 
/work/SRC/openSUSE:Factory/perl-Linux-DesktopFiles/perl-Linux-DesktopFiles.changes
  2017-10-05 11:56:45.913652084 +0200
+++ 
/work/SRC/openSUSE:Factory/.perl-Linux-DesktopFiles.new/perl-Linux-DesktopFiles.changes
     2017-10-06 11:04:01.900068892 +0200
@@ -1,0 +2,9 @@
+Thu Oct  5 05:33:17 UTC 2017 - co...@suse.com
+
+- updated to 0.22
+   see /usr/share/doc/packages/perl-Linux-DesktopFiles/Changes
+
+  0.22  2017-10-04
+      - Make sure the category names are unique, so we don't store an 
application twice under the same category.
+
+-------------------------------------------------------------------

Old:
----
  Linux-DesktopFiles-0.21.tar.gz

New:
----
  Linux-DesktopFiles-0.22.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Linux-DesktopFiles.spec ++++++
--- /var/tmp/diff_new_pack.0Jc3nO/_old  2017-10-06 11:04:03.615809409 +0200
+++ /var/tmp/diff_new_pack.0Jc3nO/_new  2017-10-06 11:04:03.619808804 +0200
@@ -17,7 +17,7 @@
 
 
 Name:           perl-Linux-DesktopFiles
-Version:        0.21
+Version:        0.22
 Release:        0
 %define cpan_name Linux-DesktopFiles
 Summary:        Fast parsing of the Linux desktop files

++++++ Linux-DesktopFiles-0.21.tar.gz -> Linux-DesktopFiles-0.22.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Linux-DesktopFiles-0.21/Changes 
new/Linux-DesktopFiles-0.22/Changes
--- old/Linux-DesktopFiles-0.21/Changes 2017-09-21 14:57:36.000000000 +0200
+++ new/Linux-DesktopFiles-0.22/Changes 2017-10-04 21:38:18.000000000 +0200
@@ -1,5 +1,8 @@
 Revision history for Perl extension Linux::DesktopFiles.
 
+0.22  2017-10-04
+    - Make sure the category names are unique, so we don't store an 
application twice under the same category.
+
 0.21  2017-09-21
     - Fixed a minor bug for icon names that contain one or more dots (e.g.: 
"foo.bar.baz").
       Thanks to Erik Dubois for reporting this issue 
(https://github.com/trizen/obmenu-generator/issues/16).
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Linux-DesktopFiles-0.21/META.json 
new/Linux-DesktopFiles-0.22/META.json
--- old/Linux-DesktopFiles-0.21/META.json       2017-09-21 14:57:36.000000000 
+0200
+++ new/Linux-DesktopFiles-0.22/META.json       2017-10-04 21:38:18.000000000 
+0200
@@ -28,7 +28,7 @@
    "provides" : {
       "Linux::DesktopFiles" : {
          "file" : "lib/Linux/DesktopFiles.pm",
-         "version" : "0.21"
+         "version" : "0.22"
       }
    },
    "release_status" : "stable",
@@ -44,6 +44,6 @@
          "url" : "https://github.com/trizen/Linux-DesktopFiles";
       }
    },
-   "version" : "0.21",
+   "version" : "0.22",
    "x_serialization_backend" : "JSON::PP version 2.94"
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Linux-DesktopFiles-0.21/META.yml 
new/Linux-DesktopFiles-0.22/META.yml
--- old/Linux-DesktopFiles-0.21/META.yml        2017-09-21 14:57:36.000000000 
+0200
+++ new/Linux-DesktopFiles-0.22/META.yml        2017-10-04 21:38:18.000000000 
+0200
@@ -15,7 +15,7 @@
 provides:
   Linux::DesktopFiles:
     file: lib/Linux/DesktopFiles.pm
-    version: '0.21'
+    version: '0.22'
 requires:
   perl: '5.014'
 resources:
@@ -23,5 +23,5 @@
   homepage: https://github.com/trizen/Linux-DesktopFiles
   license: http://opensource.org/licenses/artistic-license-2.0.php
   repository: https://github.com/trizen/Linux-DesktopFiles
-version: '0.21'
+version: '0.22'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Linux-DesktopFiles-0.21/lib/Linux/DesktopFiles.pm 
new/Linux-DesktopFiles-0.22/lib/Linux/DesktopFiles.pm
--- old/Linux-DesktopFiles-0.21/lib/Linux/DesktopFiles.pm       2017-09-21 
14:57:36.000000000 +0200
+++ new/Linux-DesktopFiles-0.22/lib/Linux/DesktopFiles.pm       2017-10-04 
21:38:18.000000000 +0200
@@ -9,7 +9,7 @@
 #use strict;
 #use warnings;
 
-our $VERSION = '0.21';
+our $VERSION = '0.22';
 
 our %TRUE_VALUES = (
                     'true' => 1,
@@ -168,15 +168,21 @@
             }
         }
 
-        # Parse categories
-        (
-         my @categories =
-           grep { exists $self->{_categories}{$_} }
-           $self->{case_insensitive_cats}
-         ? (map { lc($_) =~ tr/_a-z0-9/_/cr } split(/;/, $info{Categories} // 
''))
-         : (split(/;/, $info{Categories} // ''))
-        )
-          || (!$self->{keep_unknown_categories} and next);
+        # Parse categories (and remove any duplicates)
+        my %categories;
+
+#<<<
+        @categories{
+            grep { exists $self->{_categories}{$_} } (
+                      $self->{case_insensitive_cats}
+                      ? (map { lc($_) =~ tr/_a-z0-9/_/cr } split(/;/, 
$info{Categories} // ''))
+                      : (split(/;/, $info{Categories} // ''))
+            )
+        } = ();
+#>>>
+
+        # Skip entry when there are no categories and 
`keep_unknown_categories` is false
+        scalar(%categories) or $self->{keep_unknown_categories} or next;
 
         # Remove `% ...` from the value of `Exec`
         index($info{Exec}, ' %') != -1 and $info{Exec} =~ s/ +%.*//s;
@@ -212,8 +218,8 @@
         }
 
         # Push the entry into its belonging categories
-        if (scalar(@categories)) {
-            foreach my $category (@categories) {
+        if (scalar(%categories)) {
+            foreach my $category (keys %categories) {
                 push @{$file_data->{$category}}, {map { $_ => $info{$_} } 
@{$self->{keys_to_keep}}};
             }
         }


Reply via email to