diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Iurt/Urpmi.pm | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/lib/Iurt/Urpmi.pm b/lib/Iurt/Urpmi.pm index 8355a4b..401ae91 100644 --- a/lib/Iurt/Urpmi.pm +++ b/lib/Iurt/Urpmi.pm @@ -229,40 +229,6 @@ sub add_media { 1; } -# UNUSED: -sub add_packages { - my ($self, $chroot, $_user, @packages) = @_; - my $run = $self->{run}; - my $config = $self->{config}; - if (!perform_command("$self->{urpmi_command} @packages", - $run, $config, - use_iurt_root_command => $self->{use_iurt_root_command}, - timeout => 300, - freq => 1, - retry => 2, - # FIXME: SEGV is _NOT_ OK: - error_ok => [ 11 ], - debug_mail => $run->{debug}, - error_regexp => 'cannot be installed', - wait_regexp => { - 'database locked' => sub { - plog("WARNING: urpmi database locked, waiting..."); - sleep 30; - $self->{wait_limit}++; - if ($self->{wait_limit} > 10) { - #$self->{wait_limit} = 0; - # <mrl> We can't shoot such command, it's too powerfull. - #system(qq(sudo pkill -9 urpmi &>/dev/null)); - return 0; - } - 1; - } },)) { - plog("ERROR: could not install @packages inside $chroot"); - return 0; - } - 1; -} - sub get_local_provides { my ($self) = @_; my $run = $self->{run}; |