diff options
| -rwxr-xr-x | park-rpmdrake | 3 |
1 files changed, 1 insertions, 2 deletions
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; |