diff options
Diffstat (limited to 'urpmq')
| -rwxr-xr-x | urpmq | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -76,6 +76,7 @@ for (@ARGV) { /^--headers$/ and do { $query->{headers} = 1; next }; /^--sources$/ and do { $query->{sources} = 1; next }; /^--force$/ and do { $query->{force} = 1; next }; + /^--root$/ and do { push @nextargv, \$query->{root}; next }; /^-(.*)$/ and do { foreach (split //, $1) { /[\?h]/ and do { usage; next }; /d/ and do { $query->{deps} = 1; next }; @@ -152,7 +153,7 @@ if (@src_names) { if ($query->{auto_select}) { my (%to_remove, %keep_files); - $urpm->select_packages_to_upgrade('', \%packages, \%to_remove, \%keep_files); + $urpm->select_packages_to_upgrade($query->{root}, \%packages, \%to_remove, \%keep_files); if (keys(%to_remove) > 0) { $urpm->{error}(_("some packages have to be removed for being upgraded, this is not supported yet\n")); @@ -161,7 +162,8 @@ if ($query->{auto_select}) { #- filter to add in packages selected required packages. $query->{deps} and $urpm->filter_packages_to_upgrade(\%packages, undef, - keep_alldeps => !$query->{upgrade}); + keep_alldeps => !$query->{upgrade}, + root => $query->{root}); #- get out of package that should not be upgraded. $urpm->deselect_unwanted_packages(\%packages); |