--- ekeyword.orig	2006-06-07 12:30:52.000000000 -0400
+++ ekeyword	2006-06-07 12:52:51.000000000 -0400
@@ -12,6 +12,7 @@
 #   ---
 #   > KEYWORDS="x86 ppc sparc ~alpha"
 
+use POSIX qw(strftime);
 
 my ($kw_re) = '^(?:([-~^]?)(\w[\w-]*)|([-^]\*))$';
 my (@kw);
@@ -109,6 +110,12 @@
 
     system "diff $f $f.new | grep -v '^[0-1]'";
     rename "$f.new", "$f"       or die "Can't rename: $!\n";
+
+    if (defined($ENV{'ECHANGELOG_TILDEARCH_LOG'}) &&  defined($ENV{'HOME'}) && $kw[0] =~ m/~/) {
+        open  O, ">>$ENV{'HOME'}/.ekeyword_tildearch.log" or die "Cannot open tilde arch log";
+        print O strftime("%Y %m %d", gmtime) . " Added " . $kw[0] . " to " . $f . "\n" or die "Cannot write tilde arch log";
+        close O;
+    }
 }
 
 # vim:ts=8 sw=4