diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Iurt/Urpmi.pm | 27 |
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; |