From dcb7c93527b510b07c7b1118406f76a11c7c4da1 Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Sat, 4 Oct 2003 13:50:20 +0000
Subject: [PATCH] (read_and): Honor --occurence option.

---
 src/list.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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 */
-- 
2.45.2