equal
deleted
inserted
replaced
7 if (defined $outfile) { |
7 if (defined $outfile) { |
8 open(STDOUT, '>', $_ = $outfile) or die "Can't open $_: $!\n"; |
8 open(STDOUT, '>', $_ = $outfile) or die "Can't open $_: $!\n"; |
9 } |
9 } |
10 |
10 |
11 print <<_; |
11 print <<_; |
12 [%# autogenerated at $now by $0 %] |
12 [% # autogenerated at $now by $0 |
13 [% vcs.version = "$version"; %] |
13 # included automatically via PRE_PROCESS |
|
14 vcs.version = "$version"; |
|
15 -%] |
14 _ |
16 _ |
15 |
17 |
16 utime 0, 0 => $outfile |
18 # zero timestamp does not work! Template/tpage will |
|
19 # complain about "file not found" |
|
20 utime 1, 1 => $outfile |