From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Sat, 4 Oct 2003 13:50:20 +0000 (+0000)
Subject: (read_and): Honor --occurence option.
X-Git-Url: https://git.dogcows.com/gitweb?a=commitdiff_plain;h=dcb7c93527b510b07c7b1118406f76a11c7c4da1;p=chaz%2Ftar

(read_and): Honor --occurence option.
---

diff --git a/src/list.c b/src/list.c
index 9f3b587..2148990 100644
--- a/src/list.c
+++ b/src/list.c
@@ -73,7 +73,7 @@ read_and (void (*do_something) (void))
   name_gather ();
   open_archive (ACCESS_READ);
 
-  while (!all_names_found ())
+  do
     {
       prev_status = status;
       status = read_header (false);
@@ -113,7 +113,7 @@ read_and (void (*do_something) (void))
 		  skip_member ();
 		  continue;
 		}
-	      }
+	    }
 
 	  (*do_something) ();
 	  continue;
@@ -168,6 +168,7 @@ read_and (void (*do_something) (void))
 	}
       break;
     }
+  while (!all_names_found (&current_stat_info));
 
   close_archive ();
   names_notfound ();		/* print names not found */