← Back to branch summary

~ubuntu-branches/ubuntu/utopic/circos/utopic

« back to all changes in this revision

Viewing changes to lib/Circos/Division.pm

  • Committer: Package Import Robot
  • Author(s): Olivier Sallou
  • Date: 2013-05-20 09:01:27 UTC
  • mfrom: (1.1.3)
  • Revision ID: package-import@ubuntu.com-20130520090127-s5nbumg8563x00ee
Tags: 0.64-1
New upstream release

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Circos/Division.pm
71
71
                }
72
72
                return $divisions;
73
73
        } else {
74
 
                return unless defined $max && defined $min && $max-$min;
 
74
                return unless defined $max && defined $min && defined $max;
75
75
                for my $block (make_list($blocks)) {
76
76
                        my @pp     = ($block, @$param_path);
77
77
                        next if hide(@pp);
95
95
}
96
96
 
97
97
sub make_divisions {
98
 
        my ($blocks,$param_path,$min,$max,$set) = @_;
 
98
        my ($blocks,$param_path,$min,$max,$r0,$r1) = @_;
99
99
        return unless $blocks;
100
 
        return unless defined $max && defined $min && $max-$min;
 
100
        if(defined $min && defined $max) {
 
101
 
 
102
        } elsif (defined $r0 && defined $r1) {
 
103
                $min = $r0;
 
104
                $max = $r1;
 
105
        } else {
 
106
                return;
 
107
        }
101
108
        my $divisions;
102
109
        for my $block (make_list($blocks)) {
103
110
                my @pp      = ($block, @$param_path);