diff options
Diffstat (limited to 'urpm')
| -rw-r--r-- | urpm/get_pkgs.pm | 14 |
1 files changed, 11 insertions, 3 deletions
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", $@)); |