[Bio] / FigKernelPackages / TBLstuff.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/TBLstuff.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Thu Mar 26 23:52:16 2009 UTC revision 1.2, Fri Apr 10 23:05:14 2009 UTC
# Line 64  Line 64 
64      my $x = shift @merged;      my $x = shift @merged;
65      while ($x)      while ($x)
66      {      {
67          print STDERR "Looking at ",&Dumper($x);  #       print STDERR "Looking at ",&Dumper($x);
68    
69          if (! (@merged && &comparable($x,$merged[0])))          if (! (@merged && &comparable($x,$merged[0])))
70          {          {
71              print STDERR "not comparable\n";  #           print STDERR "not comparable\n";
72              push(@output,['',              push(@output,['',
73                            $x->[2],             # contig                            $x->[2],             # contig
74                            $x->[3] + $x->[4],   # mid*2                            $x->[3] + $x->[4],   # mid*2
# Line 80  Line 80 
80          else          else
81          {          {
82              my $y = shift @merged;              my $y = shift @merged;
83              print STDERR "comparable",&Dumper($y);  #           print STDERR "comparable",&Dumper($y);
84    
85              if ($x->[1]->[0] eq 'peg')              if ($x->[1]->[0] eq 'peg')
86              {              {

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3