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

Diff of /FigKernelPackages/FullLocation.pm

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

revision 1.19, Fri Jan 25 18:53:35 2008 UTC revision 1.20, Fri Jan 25 20:19:50 2008 UTC
# Line 1024  Line 1024 
1024    
1025  =item RETURN  =item RETURN
1026    
1027  Returns TRUE if successful, FALSE if the process fails. If a failure occurs, then the  Returns TRUE if successful, FALSE if the process fails.
 location will have been modified to the extent that was possible.  
1028    
1029  =back  =back
1030    
# Line 1055  Line 1054 
1054          $downLimit = abs($limitLoc->EndPoint - $self->EndPoint);          $downLimit = abs($limitLoc->EndPoint - $self->EndPoint);
1055      }      }
1056      Trace("Up limit is $upLimit. Down limit is $downLimit.") if T(4);      Trace("Up limit is $upLimit. Down limit is $downLimit.") if T(4);
1057        # Save the current boundaries.
1058        my $oldBegin = $self->Begin;
1059        my $oldEnd = $self->EndPoint;
1060      # Search upstream for a stop.      # Search upstream for a stop.
1061      my $upLoc = $self->UpstreamSearch($stopPattern, $upLimit);      my $upLoc = $self->UpstreamSearch($stopPattern, $upLimit);
1062      # Check to see if we found one.      # Check to see if we found one.
# Line 1087  Line 1089 
1089              }              }
1090          }          }
1091      }      }
1092        # If we failed, restore the location.
1093        if (! $retVal) {
1094            $self->Extend($oldBegin, $oldEnd, 'trim');
1095        }
1096      # Return the success indicator.      # Return the success indicator.
1097      return $retVal;      return $retVal;
1098  }  }

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3