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

Diff of /FigKernelPackages/FigGFF.pm

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

revision 1.8, Sat Apr 9 21:09:30 2005 UTC revision 1.9, Sat Apr 9 23:42:32 2005 UTC
# Line 1061  Line 1061 
1061  sub contigs  sub contigs
1062  {  {
1063      my($self, $contig) = @_;      my($self, $contig) = @_;
1064        if ($contig && $contig =~ /\w\w\_\d+\.\d+/) {
1065          print STDERR "WARNING: $contig appears to have a version number. We should standardize on timming that somewhere\n";
1066        }
1067      $contig && (push @{$self->{contigs}}, $contig);      $contig && (push @{$self->{contigs}}, $contig);
1068      return $self->{contigs};      return $self->{contigs};
1069  }  }

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3