diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-10-20 14:17:18 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-10-20 14:17:18 +0000 |
| commit | 179ae95a1f65ef423a2d5706cd032aaf2d88f016 (patch) | |
| tree | 6a21d04d34c987c17c376291b8c15c3a90fcb074 /urpm/args.pm | |
| parent | 3e6f55b7b4e4b22a9b0b70febc8fc9c564b99b85 (diff) | |
| download | urpmi-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.pm | 5 |
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 .= ' || ' }, |