introspect git repo discovery

diff --git a/lib/System/Introspector/Probe/Repositories/Git.pm b/lib/System/Introspector/Probe/Repositories/Git.pm
index bd5ef23..74fa20d 100644 (file)
--- a/lib/System/Introspector/Probe/Repositories/Git.pm
+++ b/lib/System/Introspector/Probe/Repositories/Git.pm
@@ -12,13 +12,17 @@ has root => (
     default => sub { '/' },
 );
 
+sub _log { shift; warn sprintf "[%s] %s\n", scalar(localtime), join '', @_ }
+
 sub gather {
     my ($self) = @_;
+    $self->_log("In gather for git repos");
     return transform_exceptions {
         my $pipe = $self->_open_locate_git_config_pipe;
         my %location;
         while (defined( my $line = <$pipe> )) {
             chomp $line;
+            $self->_log("Got $line from the repos pipe");
             next unless $line =~ m{^(.+)/\.git/config$};
             my $base = $1;
             $location{ $base } = $self->_gather_git_info($line);