| … | |
… | |
| 241 | unlink "$file.png~~"; |
241 | unlink "$file.png~~"; |
| 242 | utime +(stat "$file.map")[8,9], "$file.jpg" or die "$file.jpg: $!"; |
242 | utime +(stat "$file.map")[8,9], "$file.jpg" or die "$file.jpg: $!"; |
| 243 | utime +(stat "$file.map")[8,9], "$file.png~" or die "$file.png~: $!"; |
243 | utime +(stat "$file.map")[8,9], "$file.png~" or die "$file.png~: $!"; |
| 244 | rename "$file.png~", "$file.png"; |
244 | rename "$file.png~", "$file.png"; |
| 245 | 1 |
245 | 1 |
| 246 | } or warn $@; |
246 | } or $stderr .= $@; |
| 247 | |
247 | |
| 248 | if (length $stderr) { |
248 | if (length $stderr) { |
| 249 | open my $fh, ">$file.png.err~" |
249 | open my $fh, ">$file.png.err~" |
| 250 | or die "$file.png.err~: $!"; |
250 | or die "$file.png.err~: $!"; |
| 251 | syswrite $fh, $stderr; |
251 | syswrite $fh, $stderr; |
