merging more form fixes

This commit is contained in:
JT Smith 2008-04-18 15:52:41 +00:00
parent 709ed6971a
commit 5436f492c8
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;
}