fix precidence problem, thanks bod
parent
bd7c6d62fc
commit
7562417578
|
@ -293,9 +293,7 @@ sub writefile ($$$;$$) { #{{{
|
||||||
$writer->(\*OUT, $cleanup);
|
$writer->(\*OUT, $cleanup);
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
if (length $content) {
|
print OUT $content or error("failed writing to $newfile: $!", $cleanup);
|
||||||
print OUT $content || error("failed writing to $newfile: $!", $cleanup);
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
close OUT || error("failed saving $newfile: $!", $cleanup);
|
close OUT || error("failed saving $newfile: $!", $cleanup);
|
||||||
rename($newfile, "$destdir/$file") ||
|
rename($newfile, "$destdir/$file") ||
|
||||||
|
|
Loading…
Reference in New Issue