} else {
$from = _protect($from) if $from =~ /^\s/s;
$from_h = \do { local *FH };
- open($from_h, "< $from\0") or goto fail_open1;
+ open $from_h, "<", $from or goto fail_open1;
binmode $from_h or die "($!,$^E)";
$closefrom = 1;
}
} else {
$to = _protect($to) if $to =~ /^\s/s;
$to_h = \do { local *FH };
- open($to_h,"> $to\0") or goto fail_open2;
+ open $to_h, ">", $to or goto fail_open2;
binmode $to_h or die "($!,$^E)";
$closeto = 1;
}