From: Robert 'phaylon' Sedlacek <r.sedlacek@shadowcat.co.uk>
Date: Fri, 3 Aug 2012 20:39:43 +0000 (+0000)
Subject: added a one hour alarm to end long-running processes
X-Git-Tag: v0.001_001~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=93555732bd8f2b7202337e5c39d5aa992ae11b89;p=scpubgit%2FSystem-Introspector.git

added a one hour alarm to end long-running processes
---

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