From edf7a7b73596c25d3a6fc822bc84710a3850da5d Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 19 Dec 2007 13:37:35 +0000 Subject: add spuk's debug code for bug 34999 --- lib/Youri/Repository.pm | 7 +++++-- 1 file 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 ($?); -- cgit v1.2.1