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 (file)
--- 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")