From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sat, 17 Jul 1999 01:49:35 +0000 (+0000)
Subject: (create_archive): Exclude pathnames if any of their components are
X-Git-Url: https://git.dogcows.com/gitweb?a=commitdiff_plain;h=a0c7ce6e375b4581d5469df50c3a01ced644821b;p=chaz%2Ftar

(create_archive): Exclude pathnames if any of their components are
excluded.
---

diff --git a/src/create.c b/src/create.c
index 1ca34a6..a7d1344 100644
--- a/src/create.c
+++ b/src/create.c
@@ -755,7 +755,8 @@ create_archive (void)
       collect_and_sort_names ();
 
       while (p = name_from_list (), p)
-	dump_file (p, (dev_t) -1, 1);
+	if (!excluded_pathname (excluded, p))
+	  dump_file (p, (dev_t) -1, 1);
 
       blank_name_list ();
       while (p = name_from_list (), p)
@@ -780,7 +781,8 @@ create_archive (void)
   else
     {
       while (p = name_next (1), p)
-	dump_file (p, (dev_t) -1, 1);
+	if (!excluded_pathname (excluded, p))
+	  dump_file (p, (dev_t) -1, 1);
     }
 
   write_eot ();