more debugging

diff --git a/lib/System/Introspector/Probe/LibDirs/Perl.pm b/lib/System/Introspector/Probe/LibDirs/Perl.pm
index d13f657..b88b689 100644 (file)
--- 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 (file)
--- 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->{$_}])