From 864724bdc23083703d0ffd6e1688cd847e0aa64d Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Sat, 6 Feb 2016 19:25:30 +0000 Subject: Better modules split --- ulri | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) (limited to 'ulri') 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 -- cgit v1.2.1