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

Diff of /FigKernelPackages/FIGV.pm

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

revision 1.39, Tue Jul 24 17:01:14 2007 UTC revision 1.40, Wed Aug 15 19:34:04 2007 UTC
# Line 522  Line 522 
522                   $/ = "\n>";                   $/ = "\n>";
523                   while (defined(my $x = <CONTIGS>))                   while (defined(my $x = <CONTIGS>))
524                   {                   {
525                         chomp $x;
526                       if ($x =~ />?(\S+)[^\n]*\n(.*)/s)                       if ($x =~ />?(\S+)[^\n]*\n(.*)/s)
527                       {                       {
528                           my $id = $1;                           my $id = $1;

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3