block_ordinal = current_block_ordinal ();
current_stat_info.stat.st_size = 0; /* force 0 size on dir */
- /* FIXME: If people could really read standard archives, this
- should be:
-
- header
- = start_header (standard_option ? p : namebuf, ¤t_stat_info);
-
- but since they'd interpret DIRTYPE blocks as regular
- files, we'd better put the / on the name. */
-
header = start_header (namebuf, ¤t_stat_info);
if (!header)
return;
sizeleft = current_stat_info.stat.st_size;
- /* Don't bother opening empty, world readable files. Also do not open
- files when archive is meant for /dev/null. */
+ /* Don't bother opening empty, world readable files. Also do not
+ open files when archive is meant for /dev/null. */
if (dev_null_output
|| (sizeleft == 0
isextended = header->oldgnu_header.isextended;
else
isextended = 0;
- if (isextended)
- abort();
+
save_typeflag = header->header.typeflag;
finish_header (header, block_ordinal);
if (isextended)