diff options
Diffstat (limited to 'src/ekeyword/ekeyword')
-rwxr-xr-x | src/ekeyword/ekeyword | 15 |
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; |