From dac4c07159ba71fbb1b51c6ccb7250c91589663c Mon Sep 17 00:00:00 2001 From: Florent Villard Date: Thu, 12 Oct 2006 08:53:02 +0000 Subject: initialize root and path to prevent warnings --- lib/Youri/Repository.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lib/Youri/Repository.pm b/lib/Youri/Repository.pm index 9e7ad01..4f28b5e 100644 --- a/lib/Youri/Repository.pm +++ b/lib/Youri/Repository.pm @@ -224,6 +224,8 @@ 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; + $root ||= ''; + $path ||= ''; print "Looking for files matching $pattern in $root/$path\n" if $self->{_verbose} > 1; -- cgit v1.2.1