shithub: scc

Info  •  Files  •  Log  •  Branches

[ar] Fix extract()

It was closing the input file which was closed in doit().

--- a/ar/main.c

+++ b/ar/main.c

@@ -275,7 +275,7 @@

 	while (siz-- > 0 && (c = getc(m->src)) != EOF)

 		putc(c, fp);

 	fflush(fp);

-	if (fclose(m->src) == EOF || ferror(fp))

+	if (fclose(fp) == EOF)

 		goto error_file;

 	/* TODO: set attributes */