Commit 6d815d0c authored by no_author's avatar no_author
Browse files

No commit message

No commit message
parent bd9e9d79
......@@ -456,7 +456,7 @@ sub match_sequences {
my $cut_len = $seq_len;
my $start2 = 0;
my $cut_len2 = $seq_len_r2;
warn $start , " " , $cut_len , " " , $start2 , " " , $cut_len2;
# warn $start , " " , $cut_len , " " , $start2 , " " , $cut_len2;
#Try all barcodes, find the one with the lowest mismatch count
if ($barcodes_at_bol) {
$sequence_fragment = substr $seq_bases, 0, $barcodes_length;
......@@ -500,7 +500,7 @@ sub match_sequences {
#~ $sequence_fragment = reverse_complement $sequence_fragment;
#~ warn "sequence fragment revcomp: $sequence_fragment \n" if $debug;
}
warn $start," ", $cut_len, " ",$start2, " ",$cut_len2;
# warn $start," ", $cut_len, " ",$start2, " ",$cut_len2;
foreach my $barcoderef (@barcodes) {
my ($ident, $barcode) = @{$barcoderef};
......@@ -806,7 +806,7 @@ sub open_and_detect_input_format
} else {
die "Error: unknown file format. First character = '$first_char' (expecting > or \@)\n";
}
warn "len1: ", $seq_len, "; len2: ", $seq_len_r2, " ;barcode len: ", $barcodes_length, "; no adapt: ", $adapt;
# warn "len1: ", $seq_len, "; len2: ", $seq_len_r2, " ;barcode len: ", $barcodes_length, "; no adapt: ", $adapt;
}
sub doc()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment