Revert last commit.

svn path=/trunk/gentoolkit-dev/; revision=794

diff --git a/src/ekeyword/ekeyword b/src/ekeyword/ekeyword
index 6e75e229990f81b18099f39e88383dac3406733f..95289116d82e261d14af96210d8cf08ca8bd0f1d 100755 (executable)
--- a/src/ekeyword/ekeyword
+++ b/src/ekeyword/ekeyword
@@ -150,15 +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) {
-                                                                       # [^-] to ignore ~arch-foo in case just arch shall
-                                                                       # be stabilized, bug 304133#c11
-                                                                       $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;