diff options
| -rw-r--r-- | lib/Youri/Repository.pm | 7 |
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 ($?); |