Better modules split

1 files changed, 2 insertions, 9 deletions

diff --git a/ulri b/ulri
index e373419..5cd8f1e 100755
--- a/ulri
+++ b/ulri
@@ -34,8 +34,9 @@
 use strict;
 use MDK::Common qw(any cat_ if_ find);
 use Iurt::Config qw(config_usage get_date config_init get_author_email check_arch check_noarch);
+use Iurt::File qw(create_file);
 use Iurt::Process qw(check_pid);
-use Iurt::File qw(cleanup_failed_build get_upload_tree_state);
+use Iurt::Queue qw(cleanup_failed_build get_upload_tree_state);
 use Iurt::Mail qw(sendmail);
 use Iurt::Util qw(plog_init plog ssh_setup ssh sout sget sput);
 use Iurt::Ulri qw(build_package warn_about_failure);
@@ -577,14 +578,6 @@ plog('INFO', "jobs in queue:", %to_compile ?
 unlink $pidfile;
 exec "emi" if $something_finished;
 
-sub create_file {
-    my $file = shift;
-    my @contents = @_;
-
-    open my $FILE, ">$file" or die "FATAL: can't open $file for writing";
-    print $FILE "@contents";
-}
-
 __END__
 
 # ulri ends here