Let desc sentence be terminated by period of question mark.

This commit is contained in:
Daniel Nichter
2011-12-19 12:55:14 -07:00
parent 9baea8b7b6
commit 0056014339

View File

@@ -137,7 +137,7 @@ parse_options() {
$para = <>;
chomp;
}
my ($desc) = $para =~ m/^([^.]+)/;
my ($desc) = $para =~ m/^([^?.]+)/;
printf $opt_fh "desc:$desc.\n";
close $opt_fh;
}