diff options
author | fuzzyray <fuzzyray@gentoo.org> | 2009-05-01 17:39:18 +0000 |
---|---|---|
committer | fuzzyray <fuzzyray@gentoo.org> | 2009-05-01 17:39:18 +0000 |
commit | d260a81f203731c53c7497420a1a50a3a5d0ab6f (patch) | |
tree | 7eae7d2ef0262e70459d12972d8555eb15972cbf | |
parent | Fix typo in Makefile (diff) | |
download | gentoolkit-d260a81f203731c53c7497420a1a50a3a5d0ab6f.tar.gz gentoolkit-d260a81f203731c53c7497420a1a50a3a5d0ab6f.tar.bz2 gentoolkit-d260a81f203731c53c7497420a1a50a3a5d0ab6f.zip |
Add GLEP 53 keywords sorting patch from prefix
svn path=/; revision=569
-rwxr-xr-x | trunk/src/ekeyword/ekeyword | 4 |
1 files changed, 4 insertions, 0 deletions
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; |