From ad8fea39c3b9e890028d3f1a021ca65b1d38a996 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 20 Sep 2004 00:59:58 +0000 Subject: Add a "--" option to urpmi.removemedia. --- urpmi.removemedia | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) (limited to 'urpmi.removemedia') diff --git a/urpmi.removemedia b/urpmi.removemedia index 4a2d9e25..601b60b4 100755 --- a/urpmi.removemedia +++ b/urpmi.removemedia @@ -30,13 +30,16 @@ sub main { $options{noclean} = 1; $options{strict_match} = 1; $options{verbose} = 1; + my $options_end = 0; foreach (@_) { - /^--?a$/ and $options{all} = 1, next; - /^--?c$/ and $options{noclean} = 0, next; - /^--?y$/ and $options{strict_match} = 0, next; - /^--?v$/ and $options{verbose} = 1, next; - /^--?q$/ and $options{verbose} = 0, next; - /^-/ and die N("usage: urpmi.removemedia [-a] ... + $_ eq '--' and $options_end = 1, next; + unless ($options_end) { + /^--?a$/ and $options{all} = 1, next; + /^--?c$/ and $options{noclean} = 0, next; + /^--?y$/ and $options{strict_match} = 0, next; + /^--?v$/ and $options{verbose} = 1, next; + /^--?q$/ and $options{verbose} = 0, next; + /^-/ and die N("usage: urpmi.removemedia [-a] ... where is a medium name to remove. ") . N(" --help - print this help message. ") . N(" -a - select all media. @@ -45,6 +48,7 @@ where is a medium name to remove. ") . N(" -q - quiet mode. ") . N(" -v - verbose mode. ") . (/^--?h(?:elp)$/ ? '' : N("\nunknown options '%s'\n", $_)); + } push @toremoves, $_; } -- cgit v1.2.1