From 0b2945a6325ba5f5ce82f07593eaaa1934854879 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 18 Jan 2008 16:33:02 +0000 Subject: - urpmi: o --install-src as user now works for remote medium --- urpm/get_pkgs.pm | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) (limited to 'urpm/get_pkgs.pm') diff --git a/urpm/get_pkgs.pm b/urpm/get_pkgs.pm index 0906ee54..cc8d41af 100644 --- a/urpm/get_pkgs.pm +++ b/urpm/get_pkgs.pm @@ -138,15 +138,23 @@ sub download_packages_of_distant_media { my $partial_dir = "$urpm->{cachedir}/partial"; my $rpms_dir = "$urpm->{cachedir}/rpms"; if (%distant_sources && ! -w $partial_dir) { - $urpm->{error}(N("sorry, you can't use --install-src to install remote .src.rpm files")); - exit 1; + if (my $userdir = urpm::userdir($urpm)) { + $partial_dir = "$userdir/partial"; + $rpms_dir = "$userdir/rpms"; + mkdir $download_dir; + mkdir $rpms_dir; + } else { + $urpm->{error}(N("sorry, you can't use --install-src to install remote .src.rpm files")); + exit 1; + } } #- download files from the current medium. if (%distant_sources) { $urpm->{log}(N("retrieving rpm files from medium \"%s\"...", $urpm->{media}[$n]{name})); if (urpm::download::sync($urpm, $urpm->{media}[$n], [ values %distant_sources ], - quiet => $options{quiet}, resume => $urpm->{options}{resume}, callback => $options{callback})) { + dir => $partial_dir, quiet => $options{quiet}, + resume => $urpm->{options}{resume}, callback => $options{callback})) { $urpm->{log}(N("...retrieving done")); } else { $urpm->{error}(N("...retrieving failed: %s", $@)); -- cgit v1.2.1