7aefb4e6059a96c47f3ab3b89745bf0f1c697fba
hiram
  Thu Sep 8 14:26:08 2022 -0700
perfectly strict recognizing old style files no redmine

diff --git src/hg/utils/automation/aliasTextToBed.pl src/hg/utils/automation/aliasTextToBed.pl
index f7e7df7..fa24d44 100755
--- src/hg/utils/automation/aliasTextToBed.pl
+++ src/hg/utils/automation/aliasTextToBed.pl
@@ -36,31 +36,31 @@
 usage("Note: Cannot recognize the arguments properly ?") if (!$optsOk);
 
 printf STDERR "# chromSizes: %s\n", $opt_chromSizes;
 printf STDERR "# aliasText %s\n", $opt_aliasText;
 printf STDERR "# aliasBed %s\n", $opt_aliasBed;
 printf STDERR "# aliasBigBed %s\n", $opt_aliasBigBed;
 printf STDERR "# aliasAs %s\n", $opt_aliasAs;
 
 open (FH, "<$opt_aliasText") or die "can not read $opt_aliasText";
 my $titleLine = <FH>;
 chomp $titleLine;
 if ($titleLine !~ m/^#\s/) {
   printf STDERR "ERROR: unrecognized alias file title line:\n%s\n", $titleLine;
   exit 255;
 }
-if ($titleLine =~ m/sequenceName/) {
+if ($titleLine =~ m/# sequenceName/) {
   printf STDERR "ERROR: this is an older style alias file:\n%s\n", $titleLine;
   exit 255;
 }
 
 my %chromSizes;	# key is chrom name, value is size
 open (SZ, "<$opt_chromSizes") or die "can not read the chromSizes: $opt_chromSizes\n";
 while (my $line = <SZ>) {
   chomp $line;
   my ($chrom, $size) = split('\s+', $line);
   $chromSizes{$chrom} = $size;
 }
 close (SZ);
 
 my %nameLabels = (
    "assembly" => "Assembly",