Sophie

Sophie

distrib > Fedora > 15 > i386 > by-pkgid > 9b3669c92aee61c4ccec2c1723e9950d > files > 10

perl-IPC-Run-0.89-2.fc15.noarch.rpm

/usr/bin/perl -w

use strict ;
use IPC::Run qw( :all ) ;

$IPC::Run::debug = 10 ;

alarm 5 ;
$SIG{ALRM} = sub { die "timeout never fired!" } ;

my $out ;
run [$^X, '-e', 'sleep 10'], ">", \$out, timeout 1 ;