From: Chris Nehren <c.nehren@shadowcat.co.uk>
Date: Tue, 21 Aug 2012 20:54:59 +0000 (+0000)
Subject: these are proving more annoying than useful at the moment
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=refs%2Fheads%2Fpeople%2Fapeiron%2Fdebug-perl-probe-hang;p=scpubgit%2FSystem-Introspector.git

these are proving more annoying than useful at the moment
---

diff --git a/lib/System/Introspector/Probe/LibDirs/Perl.pm b/lib/System/Introspector/Probe/LibDirs/Perl.pm
index f242af1..7977b46 100644
--- a/lib/System/Introspector/Probe/LibDirs/Perl.pm
+++ b/lib/System/Introspector/Probe/LibDirs/Perl.pm
@@ -17,14 +17,14 @@ sub _log { shift; warn sprintf "[%s] %s\n", scalar(localtime), join '', @_ }
 
 sub gather {
     my ($self) = @_;
-    $self->_log("In gather for perl libdirs");
+    # $self->_log("In gather for perl libdirs");
     return transform_exceptions {
         my $pipe = $self->_open_locate_libdirs_pipe;
-        $self->_log("Opened locate pipe");
+        # $self->_log("Opened locate pipe");
         my %libdir;
         while (defined( my $line = <$pipe> )) {
             chomp $line;
-            $self->_log("Got $line from the libdirs pipe");
+            # $self->_log("Got $line from the libdirs pipe");
             $libdir{ $line } = transform_exceptions {
                 return { modules => $self->_gather_libdir_info($line) };
             };
@@ -37,10 +37,10 @@ sub _gather_libdir_info {
     my ($self, $libdir) = @_;
     my %module;
     my $pipe = $self->_open_locate_pm_pipe($libdir);
-    $self->_log("Opened locate pipe");
+    # $self->_log("Opened locate pipe");
     while (defined( my $line = <$pipe> )) {
         chomp $line;
-        $self->_log("Got $line from the locate pipe");
+        # $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);