394
394
or die "Can't clear close-on-exec flag on temp filehandle: $!\n";
395
395
my $cwd = Cwd::cwd(); # Save
397
397
open(my $patchpipe, '|-', "$patchprog ".fileno($tfh)) || die "Unable to open pipe for patch: $!";
398
398
printmsg "Patching $name with $patchprog\n";