Better modules split

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");