← Back to branch summary

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

« back to all changes in this revision

Viewing changes to Bio/SeqIO/scf.pm

  • Committer: Bazaar Package Importer
  • Author(s): Charles Plessy
  • Date: 2011-06-17 13:51:18 UTC
  • mfrom: (1.2.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20110617135118-xgpxhaanue57cwqs
Tags: 1.6.901-1
* New upstream release.
* Point debian/watch to search.cpan.org.
* Build using dh and overrides:
  - Use Debhelper 8 (debian/rules, debian/control).
  - Simplified debian/rules.
* Split into libbio-perl-perl, as discussed with the Debian Perl team.
  (debian/control, debian/bioperl.install, debian libbio-perl-perl.install)
* debian/control:
  - Incremented Standards-Version to reflect conformance with Policy 3.9.2.
    No other changes needed.
  - Vcs-Browser URL made redirectable to viewvc.
  - Removed useless ‘svn’ in the Vcs-Svn URL.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Bio/SeqIO/scf.pm
1
 
# $Id: scf.pm 16168 2009-09-25 21:07:32Z cjfields $
2
1
#
3
2
# Copyright (c) 1997-2001 bioperl, Chad Matsalla. All Rights Reserved.
4
3
#           This module is free software; you can redistribute it and/or
53
52
the bugs and their resolution.  Bug reports can be submitted via
54
53
the web:
55
54
 
56
 
  http://bugzilla.open-bio.org/
 
55
  https://redmine.open-bio.org/projects/bioperl/
57
56
 
58
57
=head1 AUTHOR Chad Matsalla
59
58
 
479
478
     my $array = 0;
480
479
     for (my $offset2 = 0; $offset2< scalar(@read); $offset2+=4) {
481
480
              push @{$traces->{'a'}},$read[$offset2];
482
 
              push @{$traces->{'t'}},$read[$offset2+1];
 
481
              push @{$traces->{'c'}},$read[$offset2+1];
483
482
              push @{$traces->{'g'}},$read[$offset2+3];
484
 
              push @{$traces->{'c'}},$read[$offset2+2];
 
483
              push @{$traces->{'t'}},$read[$offset2+2];
485
484
    }
486
485
    return $traces;
487
486
}