Don't expand .urpmi files on command-line in restricted mode

1 files changed, 10 insertions, 6 deletions

diff --git a/urpmi b/urpmi
index 9288c105..5efc3a73 100755
--- a/urpmi
+++ b/urpmi
@@ -149,14 +149,18 @@ my $command_line = join " ", @ARGV;
 my @ARGVcopy; # keep a copy, in case we have to restart
 
 # Expand *.urpmi arguments
-foreach my $a (@ARGV) {
-    if ($a =~ /\.urpmi$/) {
-	push @ARGVcopy, split /\n/, cat_($a);
-    } else {
-	push @ARGVcopy, $a;
+if (grep { $_ eq '--restricted' } @ARGV) {
+    @ARGVcopy = @ARGV;
+} else {
+    foreach my $a (@ARGV) {
+	if ($a =~ /\.urpmi$/) {
+	    push @ARGVcopy, split /\n/, cat_($a);
+	} else {
+	    push @ARGVcopy, $a;
+	}
     }
+    @ARGV = @ARGVcopy;
 }
-@ARGV = @ARGVcopy;
 
 # Parse command line options
 urpm::args::parse_cmdline(urpm => $urpm);