594
594
if ($len == 1 and $refstring =~ /[^\.\-\*\?]/ and
595
595
$varstring =~ /[^\.\-\*\?]/ ) { #point
600
600
elsif ( $refstring =~ /^[^\.\-\*\?]+$/ and
601
601
$varstring !~ /^[^\.\-\*\?]+$/ ) { # deletion
606
606
elsif ( $refstring !~ /^[^\.\-\*\?]+$/ and
607
607
$varstring =~ /^[^\.\-\*\?]+$/ ) { # insertion