From f87b6ce918494efcc524221cc8614592b4709c94 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 26 Jun 2000 10:27:05 +0000
Subject: fix space containing labels

---
 perl-install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 34e32a2c5..9737b264f 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -130,7 +130,7 @@ You can add some more or change the existing ones."),
 	    $e->{label} = $prefix;
 	    for (my $nb = 0; member($e->{label}, @labels); $nb++) { $e->{label} = "$prefix-$nb" }
 	} else {
-	    $c =~ /(\S+)/;
+	    $c =~ /(.*) \(/;
 	    ($e) = grep { $_->{label} eq $1 } @{$b->{entries}};
 	}
 	my %old_e = %$e;
-- 
cgit v1.2.1