fixed small options being blocking long options.

2 files changed, 11 insertions, 11 deletions

diff --git a/urpmi.addmedia b/urpmi.addmedia
index a4c9528e..09e02504 100755
--- a/urpmi.addmedia
+++ b/urpmi.addmedia
@@ -83,10 +83,10 @@ and [options] are from
     $options{probe_with} = 'synthesis'; #- no the default is to probe synthesis file.
     my $urpm = new urpm;
     while ($_ = shift @_) {
-	/^--?c/ and $options{noclean} = 0, next;
-	/^--?h/ and next;
-	/^--?f/ and ++$options{force}, next;
-	/^-z$/ and ++$options{compress}, next;
+	/^--?c$/ and $options{noclean} = 0, next;
+	/^--?h$/ and next;
+	/^--?f$/ and ++$options{force}, next;
+	/^--?z$/ and ++$options{compress}, next;
 	/^--wget/ and $urpm->{sync} = sub { my $options = shift @_;
 					    if (ref $options) { $options->{prefer} = 'wget' }
 					    else { $options = { dir => $options, prefer => 'wget' } }
diff --git a/urpmi.update b/urpmi.update
index d8d5f95d..41dd0101 100755
--- a/urpmi.update
+++ b/urpmi.update
@@ -28,10 +28,10 @@ sub main {
     $options{force} = 0;
     $options{noclean} = 1;
     while ($_ = shift @_) {
-	/^--?a/ and $options{all} = 1, next;
-	/^--?c/ and $options{noclean} = 0, next;
-	/^--?f/ and ++$options{force}, next;
-	/^-z$/ and ++$options{compress}, next;
+	/^--?a$/ and $options{all} = 1, next;
+	/^--?c$/ and $options{noclean} = 0, next;
+	/^--?f$/ and ++$options{force}, next;
+	/^--?z$/ and ++$options{compress}, next;
 	/^--update$/ and $options{update} = 1, next;
 	/^--wget$/ and $urpm->{sync} = sub { my $options = shift @_;
 					     if (ref $options) { $options->{prefer} = 'wget' }
@@ -53,9 +53,9 @@ sub main {
 	    $urpm->{proxy}{pwd} = $2;
 	    next;
 	};
-	/^--no-md5sum/ and $options{nomd5sum} = 1, next;
-	/^--?noa/ and next; #- default, keeped for compability.
-	/^--?d/ and next; #- default, keeped for compability.
+	/^--no-md5sum$/ and $options{nomd5sum} = 1, next;
+	/^--?noa$/ and next; #- default, keeped for compability.
+	/^--?d$/ and next; #- default, keeped for compability.
 	/^-/ and die N("usage: urpmi.update [options] <name> ...
 where <name> is a medium name to update.
 ") . N("  --help         - print this help message.