aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Iurt/Ulri.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Iurt/Ulri.pm')
-rwxr-xr-xlib/Iurt/Ulri.pm10
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");