changeset 25:f5da139a09b4 draft

Uploaded
author romaingred
date Mon, 23 Oct 2017 08:16:37 -0400
parents 08bbde9d0c9d
children 201e27bab5a0
files bin/piPipe.pl
diffstat 1 files changed, 1 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/bin/piPipe.pl	Mon Oct 23 08:16:22 2017 -0400
+++ b/bin/piPipe.pl	Mon Oct 23 08:16:37 2017 -0400
@@ -68,8 +68,7 @@
 my $file = $dir.'report.txt';
 open my $report, '>', $file or die "Cannot open $file $!\n";
 
-my %toBuild;
-@toBuild{ ( $ref, $tRNAs, $rRNAs, $snRNAs, $miRNAs, $exons, $TE ) } =  ( $build_index, $build_tRNAs, $build_rRNAs, $build_snRNAs, $build_miRNAs, $build_exons, $build_TE ) ;
+my @toBuild = ( [$build_index, \$ref],  [$build_tRNAs, \$tRNAs], [$build_rRNAs, \$rRNAs], [$build_snRNAs, \$snRNAs], [$build_miRNAs, \$miRNAs], [$build_exons, \$exons], [$build_TE, \$TE] );
 to_build ( \%toBuild, $report );
 
 my $proc_child = ceil($max_procs / scalar(@fastq));