fix pattern for synonyms

This commit is contained in:
Eric House 2013-10-09 07:36:04 -07:00
parent 253073efc5
commit 303f919b5e

View file

@ -163,7 +163,7 @@ sub TileFace($) {
my $str = ${$tileR}[2];
if ( $str =~ /\'(.)\'/ ) {
if ( $str =~ /\'(.(\|.)*)\'/ ) {
return $1;
} elsif ( $str =~ /\"(.+)\"/ ) {
return $1;