From 481dd45043755b12c3350ea11cd78d42cd3c5f7d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 30 Apr 2014 19:58:49 +0200
Subject: (sub install_packages_old) kill it (unused)

---
 lib/Iurt/Urpmi.pm | 27 ---------------------------
 1 file changed, 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;
-- 
cgit v1.2.1