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

Diff of /FigKernelPackages/FIG.pm

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

revision 1.202, Wed Jan 12 21:22:08 2005 UTC revision 1.203, Thu Jan 13 17:32:51 2005 UTC
# Line 2765  Line 2765 
2765      {      {
2766          my @exons = split(/,/,$location);          my @exons = split(/,/,$location);
2767          my($contig,$beg,$end);          my($contig,$beg,$end);
2768          warn "Got exons ", Dumper(\@exons);  
2769          if (($exons[0] =~ /^(\S+)_(\d+)_\d+$/) &&          if (($exons[0] =~ /^(\S+)_(\d+)_\d+$/) &&
2770              (($contig,$beg) = ($1,$2)) && ($contigQ = quotemeta $contig) &&              (($contig,$beg) = ($1,$2)) && ($contigQ = quotemeta $contig) &&
2771              ($exons[$#exons] =~ /^$contigQ\_\d+_(\d+)$/) &&              ($exons[$#exons] =~ /^$contigQ\_\d+_(\d+)$/) &&

Legend:
Removed from v.1.202  
changed lines
  Added in v.1.203

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3