summaryrefslogtreecommitdiffstats
path: root/urpm/args.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-10-20 14:17:18 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-10-20 14:17:18 +0000
commit179ae95a1f65ef423a2d5706cd032aaf2d88f016 (patch)
tree6a21d04d34c987c17c376291b8c15c3a90fcb074 /urpm/args.pm
parent3e6f55b7b4e4b22a9b0b70febc8fc9c564b99b85 (diff)
downloadurpmi-179ae95a1f65ef423a2d5706cd032aaf2d88f016.tar
urpmi-179ae95a1f65ef423a2d5706cd032aaf2d88f016.tar.gz
urpmi-179ae95a1f65ef423a2d5706cd032aaf2d88f016.tar.bz2
urpmi-179ae95a1f65ef423a2d5706cd032aaf2d88f016.tar.xz
urpmi-179ae95a1f65ef423a2d5706cd032aaf2d88f016.zip
New urpmf option : -F (like in awk :)
Diffstat (limited to 'urpm/args.pm')
-rw-r--r--urpm/args.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/urpm/args.pm b/urpm/args.pm
index 2e3b638d..5600bd99 100644
--- a/urpm/args.pm
+++ b/urpm/args.pm
@@ -34,7 +34,7 @@ sub import {
# used by urpmf
sub add_param_closure {
my (@tags) = @_;
- return sub { $::qf .= join ':', '', map "%$_", @tags };
+ return sub { $::qf .= join $::separator, '', map "%$_", @tags };
}
# options specifications for Getopt::Long
@@ -156,7 +156,8 @@ my %options_spec = (
'verbose|v' => \$::verbose,
m => add_param_closure('media'),
i => sub { $::pattern = 'i' },
- f => sub { $::full = 'full' },
+ f => sub { $::full = 1 },
+ 'F=s' => sub { $::separator = $_[1] },
'e=s' => sub { $::expr .= "($_[1])" },
a => sub { $::expr .= ' && ' },
o => sub { $::expr .= ' || ' },