87f551dfb14925f9e7e1d6f23d798fef313fd73c hiram Mon Sep 1 23:25:33 2025 -0700 new chain net construction and update genePred names diff --git src/hg/utils/automation/gpToIx.pl src/hg/utils/automation/gpToIx.pl index 0c7c5989b66..e808ee8de52 100755 --- src/hg/utils/automation/gpToIx.pl +++ src/hg/utils/automation/gpToIx.pl @@ -40,29 +40,29 @@ $name = $ncbiParts[2]; $name =~ s/^mrna.//; $extraNames = $name; } } my $noSuffix=$name; $noSuffix =~ s/\.[0-9][0-9]*$//; if (($noSuffix ne $name) && (length($noSuffix) > 0)) { if (length($extraNames) > 0) { $extraNames .= "\t" . $noSuffix; } else { $extraNames = $noSuffix; } } if (defined($name2)) { - if ($name !~ m/\Q$name2\E/i) { + if (lc($name) ne lc($name2)) { if (length($extraNames) > 0) { $extraNames .= "\t" . $name2; } else { $extraNames = $name2; } $noSuffix = $name2; $noSuffix =~ s/\.[0-9][0-9]*$//; $extraNames .= "\t" . $noSuffix if (($noSuffix ne $name2) && (length($noSuffix) > 0)); } } printf "%s\t%s\n", $itemName, $extraNames if (length($extraNames) > 0); } close (FH);