mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-22 20:42:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

coverity fix 1435189 Double close

Browse source 
https://scan7.coverity.com/reports.htm#v29378/p15116/fileInstanceId=19259820&defectInstanceId=4445788&mergedDefectId=1435189
This commit is contained in:
Fabrizio Fabbri 2017-05-17 21:08:23 +02:00
parent 29ad64adb7
commit e688ca4058
No known key found for this signature in database
GPG key ID: 8276EDF3D10E6C35
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/unixsys.d
View file

@ -515,7 +515,7 @@ si_spawn_subprocess(cl_object command, cl_object argv, cl_object environ,
}
close(child_stdin);
close(child_stdout);
close(child_stderr);
if (!(error == @':output')) close(child_stderr);
if (child_pid < 0) {
pid = ECL_NIL;