projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Allow output files to overwrite input files (bug #21280). Thanks to
[pspp-builds.git]
/
src
/
language
/
dictionary
/
sys-file-info.c
diff --git
a/src/language/dictionary/sys-file-info.c
b/src/language/dictionary/sys-file-info.c
index 2369b99ec809d92679b21e9c69ae186ea346e101..fb953c94e97712704ed9f0bbadd07c6fa638e311 100644
(file)
--- a/
src/language/dictionary/sys-file-info.c
+++ b/
src/language/dictionary/sys-file-info.c
@@
-99,7
+99,10
@@
cmd_sysfile_info (struct lexer *lexer, struct dataset *ds UNUSED)
reader = sfm_open_reader (h, &d, &info);
if (!reader)
reader = sfm_open_reader (h, &d, &info);
if (!reader)
- return CMD_FAILURE;
+ {
+ fh_unref (h);
+ return CMD_FAILURE;
+ }
casereader_destroy (reader);
t = tab_create (2, 10, 0);
casereader_destroy (reader);
t = tab_create (2, 10, 0);
@@
-184,6
+187,7
@@
cmd_sysfile_info (struct lexer *lexer, struct dataset *ds UNUSED)
dict_destroy (d);
dict_destroy (d);
+ fh_unref (h);
return lex_end_of_command (lexer);
}
\f
return lex_end_of_command (lexer);
}
\f