← Back to branch summary

~ubuntu-branches/ubuntu/trusty/bioperl/trusty

« back to all changes in this revision

Viewing changes to Bio/DB/Qual.pm

  • Committer: Package Import Robot
  • Author(s): Charles Plessy
  • Date: 2014-01-18 11:41:11 UTC
  • mfrom: (3.1.12 sid)
  • Revision ID: package-import@ubuntu.com-20140118114111-zcjaq5edb49dhlat
Tags: 1.6.923-1
* New upstream release.
* Does not need non-free libmath-random-perl anymore.
* Build-depend on libmodule-build-perl (>= 0.420000).  Despite Lintian's
  warning that it is useless, the package does not build without.
* Conforms to Policy version 3.9.5.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Bio/DB/Qual.pm
378
378
    my $fh = $self->_fh($id) or return;
379
379
    seek($fh, $offset, 0);
380
380
    read($fh, $data, $headerlen);
381
 
    chomp $data;
 
381
    # On Windows chomp remove '\n' but leaves '\r'
 
382
    # when reading '\r\n' in binary mode
 
383
    $data =~ s/\n//g;
 
384
    $data =~ s/\r//g;
382
385
    substr($data, 0, 1) = '';
383
386
    return $data;
384
387
}