[libconfig-model-dpkg-perl] 01/02: fix dependency list sort algorithm

[dod at debian.org]

This is an automated email from the git hooks/post-receive script.

dod pushed a commit to branch master
in repository libconfig-model-dpkg-perl.

commit ac920c16670ae72c448c6a515475f343186e391b
Author: Dominique Dumont <dod at debian.org>
Date:   Sun Feb 4 10:58:58 2018 +0100

    fix dependency list sort algorithm
---
 lib/Config/Model/Dpkg/DependencyList.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Config/Model/Dpkg/DependencyList.pm b/lib/Config/Model/Dpkg/DependencyList.pm
index 6c72391..e672391 100644
--- a/lib/Config/Model/Dpkg/DependencyList.pm
+++ b/lib/Config/Model/Dpkg/DependencyList.pm
@@ -8,7 +8,7 @@ extends qw/Config::Model::ListId/ ;
 
 sub sort_algorithm {
     return sub {
-        substr($_[0],0,1) eq '$' xor substr($_[1],0,1) eq '$' ? $_[1]->fetch cmp $_[0]->fetch
+        (substr($_[0],0,1) eq '$' xor substr($_[1],0,1) eq '$') ? $_[1]->fetch cmp $_[0]->fetch
             : $_[0]->fetch cmp $_[1]->fetch;
     };
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git