3ff74a4107b59f4d14c1e06025077dd24900888b
braney
  Wed May 1 11:15:37 2024 -0700
allow underbars in names

diff --git src/hg/utils/paSNP/pa.c src/hg/utils/paSNP/pa.c
index 9d38ae3..9cd3ba3 100644
--- src/hg/utils/paSNP/pa.c
+++ src/hg/utils/paSNP/pa.c
@@ -130,31 +130,31 @@
 	    errAbort("expect '>' as first char on line %d",lf->lineIx);
 
 	char *pName = words[0];
 	char *exonCountStr = strrchr(pName, '_');
 	if (exonCountStr == NULL)
 	    errAbort("expected to find underbar on line %d",lf->lineIx);
 	int newExonCount = atoi(exonCountStr + 1);
 	if (newExonCount == 0)
 	    errAbort("bad exon count on line %d",lf->lineIx);
 	*exonCountStr = 0;
 	char *exonNumStr = strrchr(pName, '_');
 	if (exonNumStr == NULL)
 	    errAbort("expected to find underbar on line %d",lf->lineIx);
 	int newExonNum = atoi(exonNumStr + 1);
 	*exonNumStr = 0;
-	char *species = strrchr(pName, '_');
+	char *species = strchr(pName, '_');
 	*species++ = 0;
 	if (species == NULL)
 	    errAbort("expected to find species underbar on line %d",lf->lineIx);
 	int newExonSize = atoi(words[1]);
 
 	pName++;
 
 	if (newExonSize > SEQBUFFER_SIZE)
 	    errAbort("exon is too big (%d) for constant SEQBUFFER (%d)",
 		newExonSize, SEQBUFFER_SIZE);
 	
 	if (newExonSize <= 0)
 	    errAbort("expected size > 0 (2nd arg)  on line %d",lf->lineIx);