add spuk's debug code for bug 34999

1 files changed, 5 insertions, 2 deletions

diff --git a/lib/Youri/Repository.pm b/lib/Youri/Repository.pm
index cbfbbcb..bbc6178 100644
--- a/lib/Youri/Repository.pm
+++ b/lib/Youri/Repository.pm
@@ -300,8 +300,9 @@ Get all files found in a directory, using an optional filtering pattern
 sub get_files {
     my ($self, $root, $path, $pattern) = @_;
     croak "Not a class method" unless ref $self;
-    print "Looking for files matching $pattern in $root/$path\n"
-        if $self->{_verbose} > 1;
+    # debugging for bug 34999
+    print "Looking for files matching $pattern in $root/$path\n";
+#        if $self->{_verbose} > 1;
 
     my $grep = "";
     $grep = "-regextype posix-egrep -regex '.*\/$pattern'" if ($pattern);
@@ -310,6 +311,8 @@ sub get_files {
     # read permission on the *current* dir; as this code is run thru many
     # sudo invocations, sometimes the user calling it has $HOME chmoded to
     # 0700, making find fail when run as mandrake
+    # debugging for bug 34999
+    print ".. running command: find -L $root/$path $grep -type f\n";
     my @files = map { chop; $_; } `cd && find -L $root/$path $grep -type f`;
     die "FATAL: get_files(): find failed!" if ($?);