Minor fix for potential bug. (2fe0483c) · Commits · github_fork / Universc

sub/ExtractBasicStats.pl

+12 −8

Original line number	Diff line number	Diff line
		@@ -135,12 +135,14 @@ foreach my $barcode (@assigned_reads_percell) {
		$count =~ s/ $//;
		my @count = split (/ /, $count);

		if (exists $adjusted2original{$count[1]}) {
		if (exists $percell{ $adjusted2original{$count[1]} }) {
		my %count;
		$count{ASSIGNED} = $count[0];
		$percell{ $adjusted2original{$count[1]} } = \%count;
		}
		}
		}
		foreach my $barcode (sort keys %percell) {
		my %barcode = %{ $percell{$barcode} };
		if (!$barcode{ASSIGNED}) {
		@@ -163,12 +165,14 @@ foreach my $barcode (@mapped_reads_percell) {
		$count =~ s/ $//;
		my @count = split (/ /, $count);

		if (exists $adjusted2original{$count[1]}) {
		if (exists $percell{ $adjusted2original{$count[1]} }) {
		my %count = %{ $percell{ $adjusted2original{$count[1]} } };
		$count{MAPPED} = $count[0];
		$percell{ $adjusted2original{$count[1]} } = \%count;
		}
		}
		}
		foreach my $barcode (sort keys %percell) {
		my %barcode = %{ $percell{$barcode} };
		if (!$barcode{MAPPED}) {