… | |
… | |
4 | |
4 | |
5 | umask 022 |
5 | umask 022 |
6 | |
6 | |
7 | read EXE_VER <dist/exe_ver |
7 | read EXE_VER <dist/exe_ver |
8 | |
8 | |
9 | perl <Changes >Changes~ -pe '$_ = "" if /^\('"$EXE_VER"'\)/; next unless /^#gendist#/; print; $_ = "('"$EXE_VER"') '"$(date)"'\n"' || exit |
9 | perl <Changes >Changes~ -pe ' |
|
|
10 | $_ = "" if /^\('"$EXE_VER"'\)/; |
|
|
11 | next unless /^#gendist#/; |
|
|
12 | s/^ /\t/; |
|
|
13 | print; $_ = "('"$EXE_VER"') '"$(date)"'\n"; |
|
|
14 | ' || exit |
10 | mv Changes~ Changes |
15 | mv Changes~ Changes |
11 | |
16 | |
12 | rm -f "$DEST"/* |
17 | rm -f "$DEST"/* |
13 | |
18 | |
14 | <Changes >"$DEST"/Changes sed -ne "/^($EXE_VER)/,/^(A00000000)/p" |
19 | <Changes >"$DEST"/Changes sed -ne "/^($EXE_VER)/,/^(A00000000)/p" |