diff options
Diffstat (limited to 'lib/Iurt/Ulri.pm')
-rwxr-xr-x | lib/Iurt/Ulri.pm | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/lib/Iurt/Ulri.pm b/lib/Iurt/Ulri.pm index 4140678..0f83897 100755 --- a/lib/Iurt/Ulri.pm +++ b/lib/Iurt/Ulri.pm @@ -4,6 +4,7 @@ use base qw(Exporter); use File::Path qw(make_path); use File::Temp qw(mktemp); use Iurt::Config qw(get_author_email); +use Iurt::File qw(check_file_timeout); use Iurt::Util qw(plog ssh_setup ssh sput); use strict; @@ -122,15 +123,6 @@ sub build_package { return $pid; } -sub check_file_timeout { - my ($file, $time) = @_; - - my $i = 0; - while ($i < $time && (!-f $file || -z $file)) { sleep 1; $i++ } - - $i == $time; -} - sub exclude_machine { my ($config, $host) = @_; plog('INFO', "Excluding build host $host"); |