[Bioperl-guts-l] bioperl-live/Bio/MapIO fpc.pm,1.9,1.10

[Senduran Balasubramaniam]

Update of /home/repository/bioperl/bioperl-live/Bio/MapIO
In directory dev.open-bio.org:/tmp/cvs-serv8045/Bio/MapIO

Modified Files:
	fpc.pm 
Log Message:
bug fix from Will Nelson

Index: fpc.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/MapIO/fpc.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** fpc.pm	27 Sep 2006 01:11:08 -0000	1.9
--- fpc.pm	30 Nov 2006 09:34:51 -0000	1.10
***************
*** 412,419 ****
              $_contigs{$ctgname}{'trace_remark'} = $1;
          }
!         elsif ($grpabbr && $line =~ /^Chr_remark\s+"(\W|$grpabbr((\d+)|(\w+)|([.\w\d]+)))(\s*\[(.*)\])?"\s+(Pos\s+((\d.)+|NaN))(NOEDIT)?/)
          {
              my $grpmatch = $2;
!             my $pos = $9;
              if ($pos eq "NaN") {
                  $pos = 0;
--- 412,419 ----
              $_contigs{$ctgname}{'trace_remark'} = $1;
          }
!         elsif ($grpabbr && $line =~ /^Chr_remark\s+"(\W|$grpabbr((\d+)|(\w+)|([.\w\d]+)))\s*(\{(.*)\}|\[(.*)\])?"\s+(Pos\s+((\d.)+|NaN))(NOEDIT)?/)
          {
              my $grpmatch = $2;
!             my $pos = $10;
              if ($pos eq "NaN") {
                  $pos = 0;
***************
*** 526,528 ****
  Internal methods are usually preceded with a _
  
! =cut
--- 526,528 ----
  Internal methods are usually preceded with a _
  
! =cut
\ No newline at end of file