From ff5de4e539ee979095de9f48d335a6ede0ae4584 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 5 Dec 2003 20:28:02 +0000 Subject: fixed small options being blocking long options. --- urpmi.addmedia | 8 ++++---- urpmi.update | 14 +++++++------- 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] ... where is a medium name to update. ") . N(" --help - print this help message. -- cgit v1.2.1