From d260a81f203731c53c7497420a1a50a3a5d0ab6f Mon Sep 17 00:00:00 2001 From: fuzzyray Date: Fri, 1 May 2009 17:39:18 +0000 Subject: [PATCH] Add GLEP 53 keywords sorting patch from prefix svn path=/; revision=569 --- trunk/src/ekeyword/ekeyword | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/trunk/src/ekeyword/ekeyword b/trunk/src/ekeyword/ekeyword index 2e49ac0..002e44b 100755 --- a/trunk/src/ekeyword/ekeyword +++ b/trunk/src/ekeyword/ekeyword @@ -99,6 +99,10 @@ for my $f (@ARGV) { (my $sb = $b) =~ s/^\W//; return -1 if $sa eq '*'; return +1 if $sb eq '*'; + $sa .= "-"; + $sb .= "-"; + $sa =~ s/([a-z0-9]+)-([a-z0-9]*)/$2-$1/g; + $sb =~ s/([a-z0-9]+)-([a-z0-9]*)/$2-$1/g; $sa cmp $sb; } split " ", $quoted; -- 2.26.2