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

excluded.

diff --git a/src/create.c b/src/create.c
index 1ca34a62100fbf26b54aca228f621c299c8c5830..a7d134495caba826d63b15dd5d82d8ee42183b87 100644 (file)
--- 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 ();