aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Iurt/Urpmi.pm27
1 files changed, 0 insertions, 27 deletions
diff --git a/lib/Iurt/Urpmi.pm b/lib/Iurt/Urpmi.pm
index 8ecee8c..e2f305d 100644
--- a/lib/Iurt/Urpmi.pm
+++ b/lib/Iurt/Urpmi.pm
@@ -383,33 +383,6 @@ sub wait_urpmi {
}
}
-sub install_packages_old {
- my ($self, $local_spool, $srpm, $log, $error, @packages) = @_;
- my $run = $self->{run};
- my $config = $self->{config};
- my $cache = $run->{cache};
- my $log_spool = "$local_spool/log/$srpm/";
- -d $log_spool or mkdir $log_spool;
- if (!perform_command("$self->{urpmi_command} @packages",
- $run, $config, $cache,
- # mail => $maintainer,
- use_iurt_root_command => $self->{use_iurt_root_command},
- error => $error,
- hash => "${log}_$srpm",
- srpm => $srpm,
- timeout => 600,
- retry => 2,
- debug_mail => $run->{debug},
- freq => 1,
- wait_regexp => { 'database locked' => \&wait_urpmi },
- error_regexp => 'unable to access',
- log => $log_spool)) {
- $run->{status}{$srpm} = 'binary_test_failure';
- return 0;
- }
- 1;
-}
-
sub are_installed {
my ($chroot, @pkgs) = @_;
@pkgs = map { -f "$chroot$_" && `rpm -qp --qf %{name} $chroot$_` || $_ } @pkgs;