aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-02-13 15:14:13 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-02-13 15:14:13 +0000
commit41f720680083dc2f84772d074aadf8e944441258 (patch)
tree1d72c93dda67542f043fce89689d55fd2a602094
parent507a29dee70530609a22f8fff8677285bc0c5699 (diff)
downloadrpmdrake-41f720680083dc2f84772d074aadf8e944441258.tar
rpmdrake-41f720680083dc2f84772d074aadf8e944441258.tar.gz
rpmdrake-41f720680083dc2f84772d074aadf8e944441258.tar.bz2
rpmdrake-41f720680083dc2f84772d074aadf8e944441258.tar.xz
rpmdrake-41f720680083dc2f84772d074aadf8e944441258.zip
fix checking name already used
-rwxr-xr-xpark-rpmdrake3
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;