diff options
Diffstat (limited to 'lib/MDK/Common/File.pm')
| -rw-r--r-- | lib/MDK/Common/File.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/MDK/Common/File.pm b/lib/MDK/Common/File.pm index 71fe71c..cdcfcd9 100644 --- a/lib/MDK/Common/File.pm +++ b/lib/MDK/Common/File.pm @@ -289,6 +289,8 @@ sub substInFile(&@) { &$f($_); print; } + open(my $F, $file); + fsync($F); unlink "$file$^I"; # remove old backup now that we'have closed new file } else { local *F; my $old = select F; # that way eof return true |