From: Robert 'phaylon' Sedlacek <r.sedlacek@shadowcat.co.uk>
Date: Fri, 3 Aug 2012 20:54:50 +0000 (+0000)
Subject: made remote timeout configurable by env
X-Git-Tag: v0.001_001~14
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cde813ad5ee787a8317f4dc1327c29d715b1d573;p=scpubgit%2FSystem-Introspector.git

made remote timeout configurable by env
---

diff --git a/lib/System/Introspector/Gatherer.pm b/lib/System/Introspector/Gatherer.pm
index 234168a..ef43727 100644
--- a/lib/System/Introspector/Gatherer.pm
+++ b/lib/System/Introspector/Gatherer.pm
@@ -10,7 +10,7 @@ has introspectors => (is => 'ro', required => 1);
 sub gather_all {
     my ($self) = @_;
     my %report;
-    alarm 60*60;
+    alarm($ENV{SI_GATHER_TIMEOUT} || 60*60);
     for my $spec (@{ $self->introspectors }) {
         my ($base, $args) = @$spec;
         $report{$base} = use_module("System::Introspector::Probe::$base")