diff --git a/perl/createTranscriptToGenomicInfoTables.pl b/perl/createTranscriptToGenomicInfoTables.pl index 4a7dd7cfb..8787f6ba5 100755 --- a/perl/createTranscriptToGenomicInfoTables.pl +++ b/perl/createTranscriptToGenomicInfoTables.pl @@ -42,11 +42,11 @@ open(UNSORTED, "< $unsorted_table") or die "can't open $unsorted_table: $!"; my $line = ; print SORTED "$line"; close(UNSORTED); - -$cmd = "grep haplotypeReference -v $unsorted_table | sort -n -k2 -T $tmp | $gatk/perl/sortByRef.pl --tmp $tmp - $ref.fai"; -print SORTED `$cmd`; close(SORTED); +$cmd = "grep haplotypeReference -v $unsorted_table | sort -n -k2 -T $tmp | $gatk/perl/sortByRef.pl --tmp $tmp - $ref.fai >> $out"; +system($cmd); + # clean up unlink $unsorted_table;