diff options
| -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; |