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

Diff of /FigKernelPackages/CompareMR.pm

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

revision 1.1, Sun Mar 11 20:37:54 2007 UTC revision 1.2, Mon Mar 12 01:13:23 2007 UTC
# Line 116  Line 116 
116      my $i2 = 0;      my $i2 = 0;
117      while ($i1 < @$dataA)      while ($i1 < @$dataA)
118      {      {
119          if    ( ($dataA->[$i1]->[0] lt $dataB->[$i2]->[0]) ||          if    ( ($i2 == @$dataB) || ($dataA->[$i1]->[0] lt $dataB->[$i2]->[0]) ||
120                 (($dataA->[$i1]->[0] eq $dataB->[$i2]->[0]) && ($dataA->[$i1]->[1] lt $dataB->[$i2]->[1])))                 (($dataA->[$i1]->[0] eq $dataB->[$i2]->[0]) && ($dataA->[$i1]->[1] lt $dataB->[$i2]->[1])))
121          {          {
122              my $currS = $dataA->[$i1]->[0];              my $currS = $dataA->[$i1]->[0];
# Line 136  Line 136 
136          }          }
137          else          else
138          {          {
139                my $currS = $dataA->[$i1]->[0];
140                my $currR = $dataA->[$i1]->[1];
141                while (($i1 < @$dataA) && ($dataA->[$i1]->[0] eq $currS) && ($dataA->[$i1]->[1] eq $currR))
142                {
143              $i1++;              $i1++;
144                }
145    
146                while (($i2 < @$dataB) && ($dataB->[$i2]->[0] eq $currS) && ($dataB->[$i2]->[1] eq $currR))
147                {
148              $i2++;              $i2++;
149          }          }
150      }      }
151        }
152      return $in1_not2;      return $in1_not2;
153  }  }
154    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3