* cli/cli-cmds.c (source_script): Clean up full_pathname. Run

cleanups on early return.
This commit is contained in:
Tom Tromey 2008-11-10 20:38:24 +00:00
parent 17ceb93675
commit b03a6ea40e
2 changed files with 10 additions and 1 deletions

View file

@ -450,6 +450,7 @@ source_script (char *file, int from_tty)
files. Put the full location in 'full_pathname'. */
fd = openp (source_path, OPF_TRY_CWD_FIRST,
file, O_RDONLY, 0, &full_pathname);
make_cleanup (xfree, full_pathname);
/* Use the full path name, if it is found. */
if (full_pathname != NULL && fd != -1)
@ -462,7 +463,10 @@ source_script (char *file, int from_tty)
if (from_tty)
perror_with_name (file);
else
return;
{
do_cleanups (old_cleanups);
return;
}
}
stream = fdopen (fd, FOPEN_RT);