more form fixes

This commit is contained in:
JT Smith 2008-04-18 15:49:05 +00:00
parent 040d593999
commit 9181a23d73
3 changed files with 9 additions and 2 deletions

View file

@ -162,6 +162,7 @@ sub getOptions {
}
else {
foreach my $line (split "\n", $possibleValues) {
$line =~ s/^(.*)\r|\s*$/$1/;
if ($line =~ m/(.*)|(.*)/) {
$options{$1} = $2;
}