--- ttree	2009-02-17 16:52:01.000000000 -0300
+++ ttree.orig	2009-02-17 16:41:22.000000000 -0300
@@ -256,12 +256,14 @@
             }
         }
         
-        # This is an UNOFFICIAL patch to the bug reported here:
-        # http://rt.cpan.org/Public/Bug/Display.html?id=39788
-        # Author: huguei@cpan.org
-        #
-        # moving acceptance check inside process_file
-        # to be able to recurse directories !!
+        # check against acceptance list
+        if (@$accept) {
+            unless (grep { $path =~ /$_/ } @$accept) {
+                printf "  - %-32s (not accepted)\n", $path
+                    if $verbose;
+                next FILE;
+            }
+        }
 
         if (-d $abspath) {
             if ($recurse) {
@@ -379,19 +381,6 @@
         return;
     }
 
-    # This is an UNOFFICIAL patch to the bug reported here:
-    # http://rt.cpan.org/Public/Bug/Display.html?id=39788
-    # Author: huguei@cpan.org
-    #
-    # Now we check against acceptance list, just before processing
-    if (@$accept) {
-        unless (grep { $file =~ /$_/ } @$accept) {
-            printf "  - %-32s (not accepted)\n", $file
-                if $verbose;
-            return;
-        }
-    }
-
     if ($verbose) {
         printf("  + %-32s", $file);
         print " (changed suffix to $new_suffix)" if $new_suffix;