File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -198,6 +198,10 @@ $L->info("Reading STDIN") unless $opt{reads};
198198my $rpr = Fastq::Parser-> new($opt {reads } ? (file => $opt {reads }) : ())-> check_format;
199199if ($rpr ) {
200200 my $po = $rpr -> guess_phred_offset();
201+ if (!defined ($po )){
202+ $po =33;
203+ $L -> info(" Couldn't guess phred offset, but assuming 33 for PacBio" );
204+ }
201205 $L -> logdie(" Expected phred offset 33" ) if $po && $po != 33;
202206 $rpr -> phred_offset($po ); # should be 33 for PacBio
203207} else {
Original file line number Diff line number Diff line change @@ -41,7 +41,7 @@ use Time::HiRes qw(usleep);
4141use Data::Dumper;
4242$Data::Dumper::Sortkeys = 1;
4343
44- use version 0.77; our $VERSION = qv(" 2.14.0 " );
44+ use version 0.77; our $VERSION = qv(" 2.14.1 " );
4545
4646my $RealLib = " $RealBin /../lib/" ;
4747my $RealPerl = " perl -I${RealLib} $RealBin " ;
You can’t perform that action at this time.
0 commit comments