Fix error message to not always say 'bad file descriptor'

This commit is contained in:
Jamie Cameron
2012-03-17 10:49:13 -07:00
parent 670b3212af
commit a9923d64c8

View File

@@ -8230,10 +8230,10 @@ else {
else {
$main::open_temphandles{$fh} = $file;
}
binmode($fh);
if (!$ex && !$noerror) {
&error(&text("efileopen", $file, $!));
}
binmode($fh);
return $ex;
}
elsif ($file =~ /^>\s*(([a-zA-Z]:)?\/.*)$/ && $notemp) {