more debugging

diff --git a/lib/System/Introspector/Probe/LibDirs/Perl.pm b/lib/System/Introspector/Probe/LibDirs/Perl.pm
index 1e34ba9..d13f657 100644 (file)
--- a/lib/System/Introspector/Probe/LibDirs/Perl.pm
+++ b/lib/System/Introspector/Probe/LibDirs/Perl.pm
@@ -13,6 +13,8 @@ has root => (
     default => sub { '/' },
 );
 
+sub _log { shift; printf "[%s] %s\n", scalar(localtime), join '', @_ }
+
 sub gather {
     my ($self) = @_;
     return transform_exceptions {
@@ -20,6 +22,7 @@ sub gather {
         my %libdir;
         while (defined( my $line = <$pipe> )) {
             chomp $line;
+            $self->_log("Got $line from the libdirs pipe");
             $libdir{ $line } = transform_exceptions {
                 return { modules => $self->_gather_libdir_info($line) };
             };
@@ -34,6 +37,7 @@ sub _gather_libdir_info {
     my $pipe = $self->_open_locate_pm_pipe($libdir);
     while (defined( my $line = <$pipe> )) {
         chomp $line;
+        $self->_log("Got $line from the locate pipe");
         my $metadata = Module::Metadata->new_from_file($line);
         next unless $metadata->name;
         my $sha = Digest::SHA->new(256);