Fix keywording if the KEYWORDS line starts with whitespace, thanks to Markus Meier...

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

diff --git a/src/ekeyword/ekeyword b/src/ekeyword/ekeyword
index e5643c83420faf914cf6ece8eab4a61028a616ae..e74a8671b6c35bef6c571af711a982e1527361f8 100755 (executable)
--- a/src/ekeyword/ekeyword
+++ b/src/ekeyword/ekeyword
@@ -47,7 +47,7 @@ for my $f (@ARGV) {
                if (/^\s*KEYWORDS=/) {
 
                        # extract the quoted section from KEYWORDS
-                       while (not /^KEYWORDS=["'].*?["']/) {
+                       while (not /^\s*KEYWORDS=["'].*?["']/) {
                                chomp;
                                my $next = <I>;
                                $_ = join " ", $_, $next;