From: Chris Nehren <c.nehren@shadowcat.co.uk>
Date: Fri, 17 Aug 2012 00:16:31 +0000 (+0000)
Subject: more debugging
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=afe94e04bbdb105f47aa4fee927e91c2ce05c7e9;p=scpubgit%2FSystem-Introspector.git

more debugging
---

diff --git a/lib/System/Introspector/Probe/LibDirs/Perl.pm b/lib/System/Introspector/Probe/LibDirs/Perl.pm
index d13f657..b88b689 100644
--- a/lib/System/Introspector/Probe/LibDirs/Perl.pm
+++ b/lib/System/Introspector/Probe/LibDirs/Perl.pm
@@ -17,8 +17,10 @@ sub _log { shift; printf "[%s] %s\n", scalar(localtime), join '', @_ }
 
 sub gather {
     my ($self) = @_;
+    $self->_log("In gather for perl libdirs");
     return transform_exceptions {
         my $pipe = $self->_open_locate_libdirs_pipe;
+        $self->_log("Opened locate pipe");
         my %libdir;
         while (defined( my $line = <$pipe> )) {
             chomp $line;
@@ -35,6 +37,7 @@ sub _gather_libdir_info {
     my ($self, $libdir) = @_;
     my %module;
     my $pipe = $self->_open_locate_pm_pipe($libdir);
+    $self->_log("Opened locate pipe");
     while (defined( my $line = <$pipe> )) {
         chomp $line;
         $self->_log("Got $line from the locate pipe");
diff --git a/lib/System/Introspector/State.pm b/lib/System/Introspector/State.pm
index 7ae03d1..c34aa87 100644
--- a/lib/System/Introspector/State.pm
+++ b/lib/System/Introspector/State.pm
@@ -45,6 +45,7 @@ sub introspectors {
 
 sub fetch {
     my ($self, $host, $group) = @_;
+    $self->_log("in fetch for $host");
     my $spec = $self->introspectors($group);
     my (@sudo, @nosudo);
     push(@{ $spec->{$_}{sudo} ? \@sudo : \@nosudo}, [$_, $spec->{$_}])