From: Chris Nehren <c.nehren@shadowcat.co.uk>
Date: Fri, 17 Aug 2012 00:05:16 +0000 (+0000)
Subject: more debugging
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2fa678bea7ba84fd824a6e5a902d31a333c25b3b;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 1e34ba9..d13f657 100644
--- 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);