|
Lines 12-17
Link Here
|
| 12 |
# --- |
12 |
# --- |
| 13 |
# > KEYWORDS="x86 ppc sparc ~alpha" |
13 |
# > KEYWORDS="x86 ppc sparc ~alpha" |
| 14 |
|
14 |
|
|
|
15 |
use POSIX qw(strftime); |
| 15 |
|
16 |
|
| 16 |
my ($kw_re) = '^(?:([-~^]?)(\w[\w-]*)|([-^]\*))$'; |
17 |
my ($kw_re) = '^(?:([-~^]?)(\w[\w-]*)|([-^]\*))$'; |
| 17 |
my (@kw); |
18 |
my (@kw); |
|
Lines 109-114
Link Here
|
| 109 |
|
110 |
|
| 110 |
system "diff $f $f.new | grep -v '^[0-1]'"; |
111 |
system "diff $f $f.new | grep -v '^[0-1]'"; |
| 111 |
rename "$f.new", "$f" or die "Can't rename: $!\n"; |
112 |
rename "$f.new", "$f" or die "Can't rename: $!\n"; |
|
|
113 |
|
| 114 |
if (defined($ENV{'ECHANGELOG_TILDEARCH_LOG'}) && defined($ENV{'HOME'}) && $kw[0] =~ m/~/) { |
| 115 |
open O, ">>$ENV{'HOME'}/.ekeyword_tildearch.log" or die "Cannot open tilde arch log"; |
| 116 |
print O strftime("%Y %m %d", gmtime) . " Added " . $kw[0] . " to " . $f . "\n" or die "Cannot write tilde arch log"; |
| 117 |
close O; |
| 118 |
} |
| 112 |
} |
119 |
} |
| 113 |
|
120 |
|
| 114 |
# vim:ts=8 sw=4 |
121 |
# vim:ts=8 sw=4 |
