Changeset 267d44e for client/bin/gbr

Timestamp:

Oct 10, 2010, 12:35:43 PM (14 years ago)

Author:

Jessica B. Hamrick <jhamrick@…>

Branches:

master, debian, mac, no-cups

Children:

2876403, 02483ba, 618236b, 30e33fb

Parents:

1c3f290

git-author:

Jessica B. Hamrick <jhamrick@…> (10/10/10 12:35:43)

git-committer:

Jessica B. Hamrick <jhamrick@…> (10/10/10 12:35:43)

Message:

Fix bug with recursive option in gbr

File:

• client/bin/gbr (modified) (1 diff)

client/bin/gbr

@@ -59 +59 @@
     # if it is a file (and not a directory)
     sub append {
-        my $name = $File::Find::name;
-        if (-f $name) {
-            push(@allfiles, $name);
+        if (-f $_) {
+            push(@allfiles, $_);
         }
     }
     
-    # recursively find all the files and add them to @allfiles
-    find(\&append, @files);
+    # recursively find all the files and add them to @allfiles     
+    find({ wanted => \&append, no_chdir => 1}, @files);
 
     # if we're not shuffling the list, then sort the files.  If we are