Convert every instance of KEYWORDS in the file
[gentoolkit.git] / trunk / src / ekeyword / ekeyword
index 14cc0dc1ea7b0c26cf0298381879d02afa74b775..1f85996adca2b7e40dcaca8467ab70d83ae346f0 100755 (executable)
@@ -100,7 +100,7 @@ for my $f (@ARGV) {
        # re-insert quoted to KEYWORDS
        s/(["']).*?["']/$1$quoted$1/;
 
-       print $_, <I> or die "Can't write $f.new: $!\n";
+       print $_ or die "Can't write $f.new: $!\n";
     }
 
     close I;