From cdf6aff0308da0b4446fe20d3bed751f74acf446 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Mon, 15 May 2006 09:06:12 +0000
Subject: Allow '--' in urpmf command-lines to search for patterns that begin
 with a '-' (bug noticed by Titi)

---
 urpm/args.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'urpm')

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;
-- 
cgit v1.2.1