made remote timeout configurable by env

[scpubgit/System-Introspector.git] / lib / System / Introspector / Gatherer.pm

diff --git a/lib/System/Introspector/Gatherer.pm b/lib/System/Introspector/Gatherer.pm
index 234168a..ef43727 100644 (file)
--- 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")