Fix required/optional interface with physical eq '+'

This commit is contained in:
Tom Eastep 2010-11-14 08:43:20 -08:00
parent 9568a6ef59
commit 997a697a65

View File

@ -817,7 +817,7 @@ sub chain_base($) {
$chain =~ s/\+$//;
$chain =~ tr/./_/;
if ( $chain =~ /^[0-9]/ || $chain =~ /[^\w]/ ) {
if ( $chain eq '' || $chain =~ /^[0-9]/ || $chain =~ /[^\w]/ ) {
#
# Must map. Remove all illegal characters
#