aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2014-04-30 19:58:49 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-04-30 19:58:49 +0200
commit481dd45043755b12c3350ea11cd78d42cd3c5f7d (patch)
tree77dcceca3df6b964efc004420fdc4f7eb019e196 /lib
parent5221d386078b1fbc2f6366e642a6f99693726465 (diff)
downloadiurt-481dd45043755b12c3350ea11cd78d42cd3c5f7d.tar
iurt-481dd45043755b12c3350ea11cd78d42cd3c5f7d.tar.gz
iurt-481dd45043755b12c3350ea11cd78d42cd3c5f7d.tar.bz2
iurt-481dd45043755b12c3350ea11cd78d42cd3c5f7d.tar.xz
iurt-481dd45043755b12c3350ea11cd78d42cd3c5f7d.zip
(sub install_packages_old) kill it (unused)
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;