diff options
author | John Ankarström <john@ankarstrom.se> | 2021-07-17 13:43:30 +0200 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2021-07-17 13:43:30 +0200 |
commit | 8baf8960949c2a30abc04e61bd42fc23be8463f7 (patch) | |
tree | abad6e632c03bf99f762b2f4408c86af0d1bd3a8 /gen.pl | |
parent | b9c06d9c3f0861d4a4b196f30c65da8641e1a274 (diff) | |
download | perlisdead-master.tar.gz |
Diffstat (limited to 'gen.pl')
-rwxr-xr-x | gen.pl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -36,7 +36,7 @@ chdir $Bin; mkdir 'out' if ! -d 'out'; open my $src, '<', 'src/index.html' or die "Could not open < src/index.html: $!"; open my $out, '>', 'out/index.html.tmp' or die "Could not open > out/index.html.tmp: $!"; -copy 'src/index.html', 'src/index.html.bkp'; +copy 'out/index.html', 'out/index.html.bkp'; select $out; for (<$src>) { when (/^\.inc (.*)/) { |