aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/ekeyword/ekeyword')
-rwxr-xr-xsrc/ekeyword/ekeyword15
1 files changed, 12 insertions, 3 deletions
diff --git a/src/ekeyword/ekeyword b/src/ekeyword/ekeyword
index 293f0cf..9528911 100755
--- a/src/ekeyword/ekeyword
+++ b/src/ekeyword/ekeyword
@@ -150,13 +150,22 @@ for my $f (@ARGV) {
# Don't add stable keywords for != stable architectures
if(length($leader) eq 0) {
+ my @new;
foreach my $tmp (split(/\s/, $quoted)) {
- my (undef, $_arch, undef) = ($tmp =~ m/$kw_re/o);
+ my ($_leader, $_arch, undef) = ($tmp =~ m/$kw_re/o);
+ $_leader = "" if !defined($_leader);
+ $_arch = "" if !defined($_arch);
- if($ARCH{$_arch} and $ARCH{$_arch} eq 3) {
- $quoted =~ s/\Q~${_arch}\E/${_arch}/;
+ if($_leader eq "~" && ($ARCH{$_arch} && $ARCH{$_arch} eq 3) ) {
+ push(@new, $_arch);
+ next;
+ }
+ else {
+ push(@new, "${_leader}${_arch}");
+ next;
}
}
+ $quoted = join(" ", @new);
}
else {
$quoted =~ s/(^|\s)~?(?=\w)/$1$leader/g;