2f9ecbef0ea856db2838ef569c817f7bafd4de09 hiram Thu Aug 1 14:55:29 2019 -0700 correct word in usage message refs #23918 diff --git src/hg/utils/automation/gpToIx.pl src/hg/utils/automation/gpToIx.pl index 0bde5b4..8450c2d 100755 --- src/hg/utils/automation/gpToIx.pl +++ src/hg/utils/automation/gpToIx.pl @@ -1,30 +1,30 @@ #!/usr/bin/env perl # construct ix.txt index from a genePred file # index key is the name of the gene from column 1 of the genePred # alias names for that are constructed: # the name without any .nnn suffix # name2 if present, and name2 without .nnn suffix use strict; use warnings; my $argc = scalar(@ARGV); if ($argc != 1 ) { - printf STDERR "ucage: gpToIx.pl <genePred.gp> | sort -u > ix.txt\n"; + printf STDERR "usage: gpToIx.pl <genePred.gp> | sort -u > ix.txt\n"; printf STDERR "then run ixIxx on ix.txt:\n"; printf STDERR " ixIxx ix.txt out.ix out.ixx\n"; exit 255; } my $gpFile = shift; if ($gpFile =~ m/.gz$/) { open (FH, "zcat $gpFile|") or die "ERROR: gpToIx.pl can not read '$gpFile'"; } else { open (FH, "<$gpFile") or die "ERROR: gpToIx.pl can not read '$gpFile'"; } while (my $line = <FH>) { next if ($line =~ m/^#/); chomp ($line);