aboutsummaryrefslogtreecommitdiffstats
path: root/ulri
diff options
context:
space:
mode:
Diffstat (limited to 'ulri')
-rwxr-xr-xulri11
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