changeset 32751 | 5b65449d7669 |
parent 32750 | c876bcb601fc |
parent 32639 | a6909ef949aa |
child 32752 | f65d74a264dd |
--- a/src/HOL/Tools/ATP_Manager/lib/scripts/local_atp.pl Thu Sep 17 14:17:37 2009 +1000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,15 +0,0 @@ -use POSIX qw(setsid); - -$SIG{'INT'} = "DEFAULT"; - -defined (my $pid = fork) or die "$!"; -if (not $pid) { - POSIX::setsid or die $!; - exec @ARGV; -} -else { - wait; - my ($user, $system, $cuser, $csystem) = times; - my $time = ($user + $cuser) * 1000; - print "$time\n"; -}