Open atoomic opened 5 years ago
diff -ruN 2.22/ttree mine/ttree
--- 2.22/ttree 2009-09-09 17:20:20.539677587 +0100
+++ mine/ttree 2009-09-09 17:17:57.451717844 +0100
@@ -296,16 +296,6 @@
}
}
- # check against acceptance list
- if (@$accept) {
- unless ((-d $abspath && $recurse) || grep { $path =~ /$_/ } @$accept) {
- printf yellow(" - %-32s (not accepted)\n"), $path
- if $verbose > 1;
- $n_skip++;
- next FILE;
- }
- }
-
if (-d $abspath) {
if ($recurse) {
my ($uid, $gid, $mode);
@@ -383,6 +373,16 @@
}
}
+ # check against acceptance list
+ if (not $copy_file and @$accept) {
+ unless (grep { $filename =~ /$_/ } @$accept) {
+ printf yellow(" - %-32s (not accepted)\n"), $file
+ if $verbose > 1;
+ $n_skip++;
+ return;
+ }
+ }
+
# stat the source file unconditionally, so we can preserve
# mode and ownership
( undef, undef, $mode, undef, $uid, $gid, undef,
Migrated from rt.cpan.org#49567 (status was 'open')
Requestors:
Attachments:
From dgp@corefiling.com on 2009-09-09 16:24:48:
From mkanat@cpan.org on 2010-07-22 08:34:23:
From bgrimm@cpan.org on 2010-09-10 12:06:40: