From 179ae95a1f65ef423a2d5706cd032aaf2d88f016 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 20 Oct 2005 14:17:18 +0000
Subject: New urpmf option : -F (like in awk :)

---
 urpm/args.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'urpm/args.pm')

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 .= ' || ' },
-- 
cgit v1.2.1