avoid modified patchperl replacing original file