version 1.53, 2011/06/07 12:22:46 |
version 1.54, 2011/06/07 18:42:30 |
|
|
# is there a valid non-numeric suffix to deal with later? |
# is there a valid non-numeric suffix to deal with later? |
# accepter are (in order): a(lpha) < b(eta) < rc < ' '. |
# accepter are (in order): a(lpha) < b(eta) < rc < ' '. |
# suffix[0] is the 'alpha' part, suffix[1] is the '1' part in 'alpha1'. |
# suffix[0] is the 'alpha' part, suffix[1] is the '1' part in 'alpha1'. |
if ($a =~ s/(rc|beta|b|alpha|a)(\d+)$//) { |
# XXX: add back 'rc'. |
|
if ($a =~ s/(beta|b|alpha|a)(\d+)$//) { |
print STDERR "valid suffix $1$2 found in $a.\n" if $D; |
print STDERR "valid suffix $1$2 found in $a.\n" if $D; |
$suffix_a[0] = $1; |
$suffix_a[0] = $1; |
$suffix_a[1] = $2; |
$suffix_a[1] = $2; |
} |
} |
|
|
if ($b =~ s/(rc|beta|b|alpha|a)(\d+)$//) { |
if ($b =~ s/(beta|b|alpha|a)(\d+)$//) { |
print STDERR "valid suffix $1$2 found in $b.\n" if $D; |
print STDERR "valid suffix $1$2 found in $b.\n" if $D; |
$suffix_b[0] = $1; |
$suffix_b[0] = $1; |
$suffix_b[1] = $2; |
$suffix_b[1] = $2; |