diff options
Diffstat (limited to 'urpm/args.pm')
-rw-r--r-- | urpm/args.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/urpm/args.pm b/urpm/args.pm index 21402463..5fc78e05 100644 --- a/urpm/args.pm +++ b/urpm/args.pm @@ -394,6 +394,20 @@ sub parse_cmdline { $options{$k} = $args{defaults}{$k}; } GetOptions(%{$options_spec{$tool}}); + if ($tool eq 'urpmf' && @ARGV && $ARGV[0] eq '--') { + if (@ARGV == 2) { + my $p = $ARGV[1]; + if ($::literal) { + $p = quotemeta $p; + } else { + $p =~ s/\+/\\+/g; + } + $::expr .= "m{$p}" . $::pattern; + } + else { + die N("Too many arguments\n"); + } + } } 1; |