1 |
Author: fuzzyray |
2 |
Date: 2009-05-01 17:39:18 +0000 (Fri, 01 May 2009) |
3 |
New Revision: 569 |
4 |
|
5 |
Modified: |
6 |
trunk/src/ekeyword/ekeyword |
7 |
Log: |
8 |
Add GLEP 53 keywords sorting patch from prefix |
9 |
|
10 |
Modified: trunk/src/ekeyword/ekeyword |
11 |
=================================================================== |
12 |
--- trunk/src/ekeyword/ekeyword 2009-05-01 17:33:51 UTC (rev 568) |
13 |
+++ trunk/src/ekeyword/ekeyword 2009-05-01 17:39:18 UTC (rev 569) |
14 |
@@ -99,6 +99,10 @@ |
15 |
(my $sb = $b) =~ s/^\W//; |
16 |
return -1 if $sa eq '*'; |
17 |
return +1 if $sb eq '*'; |
18 |
+ $sa .= "-"; |
19 |
+ $sb .= "-"; |
20 |
+ $sa =~ s/([a-z0-9]+)-([a-z0-9]*)/$2-$1/g; |
21 |
+ $sb =~ s/([a-z0-9]+)-([a-z0-9]*)/$2-$1/g; |
22 |
$sa cmp $sb; |
23 |
} split " ", $quoted; |