Skip to content
Browse files

pick up some possible missing answers

  • Loading branch information...
1 parent a3b098c commit 9031d1bba715845766d5fdac9e9b97bc461f7d26 @schelcj committed
Showing with 3 additions and 1 deletion.
  1. +3 −1 create.pl
View
4 create.pl
@@ -123,12 +123,14 @@ sub parse_latex {
$question_ref->[$number]->{question} = join(qq{\n}, @lines);
}
- when ($line =~ /^$number([A-D])\n/) {
+ when ($line =~ /^$number([A-D])\s*\n/) {
my $answer = $1;
$line =~ s/^${number}${answer}\n(.*)(?:(?:\s+[\\]+\s+[\n%]+)|\n+$)/$1/g;
$question_ref->[$number]->{answers}->{lc($answer)} = $line;
}
default {
+ use Data::Dumper;
+ print Dumper $line;
}
}
}

0 comments on commit 9031d1b

Please sign in to comment.
Something went wrong with that request. Please try again.