diff options
Diffstat (limited to 'ulri')
-rwxr-xr-x | ulri | 11 |
1 files changed, 2 insertions, 9 deletions
@@ -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 |