The regular expression did not take into account that
there could be characters like "bp" in case of the Brainpool
curves (ecp512bp).
if ($mode eq "ike") {
push(@algo, $int);
if ($mode eq "ike") {
push(@algo, $int);
- if ($grp =~ m/^e(\d+)/) {
+ if ($grp =~ m/^e(.*)$/) {
push(@algo, "ecp$1");
} else {
push(@algo, "modp$grp");
push(@algo, "ecp$1");
} else {
push(@algo, "modp$grp");
- if ($grp =~ m/^e(\d+)/) {
+ if ($grp =~ m/^e(.*)$/) {
push(@algo, "ecp$1");
} else {
push(@algo, "modp$grp");
push(@algo, "ecp$1");
} else {
push(@algo, "modp$grp");