diff options
Diffstat (limited to 'ldap/admin/src/scripts/DSDialogs.pm')
| -rw-r--r-- | ldap/admin/src/scripts/DSDialogs.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ldap/admin/src/scripts/DSDialogs.pm b/ldap/admin/src/scripts/DSDialogs.pm index 6583ff9e..60bc1155 100644 --- a/ldap/admin/src/scripts/DSDialogs.pm +++ b/ldap/admin/src/scripts/DSDialogs.pm @@ -64,8 +64,8 @@ my $dsport = new Dialog ( my $self = shift; my $ans = shift; my $res = $DialogManager::SAME; - if ($ans !~ /\d+/) { - $self->{manager}->alert("dialog_dsport_error", $ans); + if ($ans !~ /^\d+$/) { + $self->{manager}->alert("dialog_dsport_invalid", $ans); } elsif (!portAvailable($ans)) { $self->{manager}->alert("dialog_dsport_error", $ans); } else { |