diff options
| author |   fuzzyray <fuzzyray@gentoo.org> | 2009-05-05 16:02:10 +0000 |
|---|---|---|
| committer | fuzzyray <fuzzyray@gentoo.org> | 2009-05-05 16:02:10 +0000 |
| commit | ab5d6784bbb1382b8a48cae001cbd2d075f58d21 (patch) | |
| tree | b123d2e675a998d8a28bd108e3dd66592922e89c /src/ekeyword | |
| parent | Merge changes from trunk to fix issues in 0.2.4 (diff) | |
| parent | Add some useful informations when using $EDITOR. (diff) | |
| download | gentoolkit-ab5d6784bbb1382b8a48cae001cbd2d075f58d21.tar.gz gentoolkit-ab5d6784bbb1382b8a48cae001cbd2d075f58d21.tar.bz2 gentoolkit-ab5d6784bbb1382b8a48cae001cbd2d075f58d21.zip | |
Merge changes from trunk in prep for making trunk ready for version 0.3
svn path=/branches/gentoolkit-0.2.4/; revision=588
Diffstat (limited to 'src/ekeyword')
| -rwxr-xr-x | src/ekeyword/ekeyword | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/ekeyword/ekeyword b/src/ekeyword/ekeyword index 2e49ac0..002e44b 100755 --- a/src/ekeyword/ekeyword +++ b/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; |