s/\s+$//;
if (m/^\|/) {
push @options, normalise_opts_list $', 'Election';
- } elsif (m/^($candvoter_re?)\s*=\s*([^|]+?)\s*\|(.*)?$/o) {
+ } elsif (m/^($candvoter_re?)\s*=\s*([^|]+?)\s*(?:\|(.*))?$/o) {
use Data::Dumper;
-print STDERR Dumper($1,$2,$3);
+#print STDERR Dumper($1,$2,$3);
my ($cand,$desc,$opts) = ($1,$2,$3);
push @{ $candidates{$cand}{Opts} }, normalise_opts $opts, 'Candidate';
setcanddesc $cand, $desc;