From 41f720680083dc2f84772d074aadf8e944441258 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 13 Feb 2004 15:14:13 +0000
Subject: fix checking name already used

---
 park-rpmdrake | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'park-rpmdrake')

diff --git a/park-rpmdrake b/park-rpmdrake
index aecc8ca1..c00ee8fd 100755
--- a/park-rpmdrake
+++ b/park-rpmdrake
@@ -317,7 +317,6 @@ sub networks_to_scanned_hosts {
 
 sub group_modify {
     my ($in, $group, $groups) = @_;
-    my $orig_name = $group->{name};
     my @orig_raw_hosts = @{$group->{raw_hosts}};
     my %widgets = (
 	name => gtkset_text(Gtk2::Entry->new, $group->{name}),
@@ -467,7 +466,7 @@ Do you really want to use this network?"));
 	$get_from_widgets->();
 
 	$group->{name} or $in->ask_warn(N("Error"), N("Name missing")), return 0;
-	$group->{name} eq $orig_name || every { $group->{name} ne $_->{name} } @$groups or 
+	every { $_ == $group || $group->{name} ne $_->{name} } @$groups or 
 	  $in->ask_warn(N("Error"), N("Name already used")), return 0;
 
 	(my $pkg_for_protocol = "urpm::parallel_$group->{protocol}") =~ s/-/_/g;
-- 
cgit v1.2.1