diff options
-rw-r--r-- | urpme | 3 | ||||
-rwxr-xr-x | urpmi | 4 | ||||
-rwxr-xr-x | urpmq | 3 |
3 files changed, 10 insertions, 0 deletions
@@ -68,6 +68,9 @@ while (defined($_ = shift @ARGV)) { push @l, $_; } +# We assume --root / is stupid (P. Terjan idea) +$root =~ s!^/*$!!; + my $urpm = new urpm; my $state = {}; @@ -238,6 +238,10 @@ while (defined($_ = shift @argv)) { } $src = 0; #- reset switch for next package. } + +# We assume --root / is stupid (P. Terjan idea) +$root =~ s!^/*$!!; + #- use install_src to promote all names as src package. if ($install_src) { @files and $urpm->{fatal}(1, N("What can be done with binary rpm files when using --install-src")); @@ -166,6 +166,9 @@ while (defined($_ = shift @ARGV)) { $query->{src} = 0; #- reset switch for next package. } +# We assume --root / is stupid (P. Terjan idea) +$root =~ s!^/*$!!; + #- remove verbose if not asked. $query->{verbose} or $urpm->{log} = sub {}; |